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This publication details complete programming spec- 
ifications for the Model 20 Card Report Program 
Generator (RPG) — a problem-oriented programming 
language . 

The reader is assumed to have some understanding 
of punched-card data processing, but needs no prior 
experience with programming or electronic data 
processing methods. 

Also included are performance specifications, a 
list of machine features and units used by the 
program, numerous illustrations, four complete 
programming examples, and appendices to amplify 
explanations and provide helpful programming hints . 
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PREY ACE 



This publication deals with a problem- 
oriented prograir ming language--the Report 
Program Generator (RPG) — which greatly sim- 
plifies the programming for implementation 
of most commercial punched-card data pro- 
cessing applications on the IBM System/360 
Model 20. The PPG, in conjunction with the 
IBM System/360 Model 20, provides fcr com- 
bining into an integrated operation, where 
appropriate, the functions performed separ- 
ately by the following IBM unit record 
eguipment: 

Reproducing punches 

Collators 

Printers 

Summary punches 

Interpreters 

Calculators 



However, familiarity with the concepts of 
punched-card records and procedures is 
assumed: programming by any language and 
for any data processing system always pre- 
supposes problem definition, and can do no 
more than instruct the system to execute 
the data processing steps previously 
planned by the user. 



This manual contains the information 
necessary fcr programming jobs for the 
Model 20 with the RPG language for punched 
cards. It is intended as a reference text, 
Extensive explanatory and illustrative 
material, as well as programming tips and 
technical data, is also included to mini- 
mize the need to consult additional 
sources. 



The user is expected to be familiar pri- 
marily with his applications and his Model 
20, rather than with the technical aspects 
of machine-oriented programming languaaes. 
Experience with unit record or data proces- 
sing systems eguipment and procedures will 
be helpful, but is not a prereguisite to an 
understanding, or utilization, of RPG. 



For a list of associated publications 
and their abstracts, see IBM Sys tem/ 360 
Model 20 Bibliography (Form A26-3565). 
Readers without previous data processing 
systems experience may find particularly 
useful information in IBM Syst em/360 Model 
20, Int rodu ction and Sys tem Su mmar y (Form 
A26-5889) . 



Seventh Edition 

•Ihis— eaifei-en-i-s—a- ma-j-er revision -©#, — and-ebsoletees-r- --6- 2 6-3600—5-; - Th-is- 
revision contains changes and minor corrections throughout. An improve- 
ment in the Stacker Select procedure, namely elimination of the "dummy 
punch" specification, has been included. Consequently, certain sections 
of the text have been deleted. The revised RPG File Description Speci- 
fication form (Form X24-3347-3) has been incorporated although the 
change in this form does not pertain directly to card RPG. The figure 
numbers in the appendices have been changed. 

Changes to the text are indicated by a vertical line to the left of the 
change; revised illustrations are denoted by the symbol • to the left of 
the caption. 

New information resulting from the announcement of the IBM System/360 
Model 20, Submodels 3 and 4, has also been included in the text. This 
information is indicated by a dotted vertical line to the left of the 
affected portion of the text. Until Submodels 3 and 4 are available, 
the information should be used for planning purposes only. 

Specifications contained herein are subject to change from time to time. 
Any such change will be reported in subsequent revisions or Technical 
Newsletters. 

This publication was prepared for production using an IBM computer to 
update the text and to control the page and line format. Page 
impressions for photo-offset printing were obtained from an IBM 1403 
printer using a special print chain. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

A form is provided at the back of this publication for readers' 
comments. If this form has been removed, comments may be addressed to 
IBM Laboratory, Publications Dept. , P.O. Box 24, Uithoorn/Netherlands . 
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PROGRAMMING 

Programming consists essential 
instructions that can be under 
data processing system. Befor 
is attempted, the data process 
must have been analyzed, and t 
step procedural reguirements d 
The nature of the source data 
manipulations (calculations) t 
formed on it, and the nature a 
the results (output) desired m 
defined. 

THE NATURE OF RPG 



The Report Program Generator (RPG) utilizes 
the abilities of the Model 20 system itself 
to convert data processing instructions 
written in natural guasi-English (RPG- 
language) statements to the language in 
which the central processing unit accepts 
its instructions. In many instances, cne 
RPG-language statement will automatically 
be translated to several machine-language 
instructions. 

The programmer using RPG writes state- 
ments in a seguence that comes naturally 
once the problem has been defined and the 
procedure determined. The expressions used 
largely consist of terms the programmer 
himself may coin, or of easily recognized 
mnemonics. The user must merely follow 
relatively simple rules. He need not be 
familiar with machine language, nor with 



"proqrar 



ucCiniiCax SeTiSS . 



OTHER PROGRAMMING LANGUAGES 

The RPG language is easy to learn and to 
a PplY/ a nd capable of handling almost every 
punched-card job requirement for the IBM 
System/360 Model 20. However, IEM current- 
ly provides two additional programming lan- 
guages to satisfy special conditions: 

1 • Basic A ssem bl er Language (B. A.L. ) 

(Refer to SRL publication IBM Sy ste m/ 
360 Model 20^ Basic Assembler Language 
JCard_and_Ta£e) Form C26-3602.) 

B.A.L. provides for programming in the 
symbolic eguivalent of actual Model 20 
machine language. Effective utiliza- 
tion cf B.A.L. requires some familiari- 
ty with the actual machine language 
(see I BM S y stem/ 360 Model 20 Functional 
Charac teri s tics , Form A26-5847), and 
involves considerable experience with 



2. 



programming for electronic data proces- 
sing systems as well as the component 
units of the system and their time 
relationships. 

As an adjunct to B.A.I., IBM also 
provides an Input/Output Control System 
(IOCS) for Model 20 card systems (IBM 
System/360 Model 2 Input/O utput Con- 
trol System for Pu nche d-Ca rd Equipment , 
Form C26-3603) . ICCS provides tested 
input/output routines that programmers 
can use by means of macro-instructions, 
to control the input and output of data 
by programs written in the Basic 
Assembler Language. 

The vast majority cf Model 20 users 
will never have to concern themselves 
with B.A.L. or IOCS, because the flexi- 
bility of the RPG and PCU (see below) 
will allow them to accomplish their 
tasks with these convenient and easy- 
to-learn languages. In a few installa- 
tions, there may be occasional unusual 
requirements which cannot be directly 
satisfied by RPG or PCU. Freguently, a 
minor modification of the procedure 
will then permit RPG to handle the job; 
but there may be a few problems that 
are best solved by B.A.L., with or 
without IOCS. Even then, it will often 
be practical to write most of the pro- 
gram in RPG, merely inserting a brief 
B.A.L. routine to overcome the particu- 
lar limitation. This approach is 
briefly covered in this manual. 

B.A.I. can, if efficiently applied, 
sometimes reduce the amount of core 
storage required for a program and may, 
on occasion, improve throughput. How- 
ever, the much greater effort called 
for to program in B.A.L., and to debug 
the program, is usually out of propor- 
tion to the minor benefits derived. 

Punched-C ard Ut ility Programs (PCU) 
(Refer to SRI publication IBM System/ 
360 Model 20, Punched-Card Uti li ty Pro- 



grams, 
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The PCU performs on Model 20 the equi- 
valent of IBM unit record machine func- 
tions. No knowledge whatsoever of pro- 
gramming is reguired. The user desig- 
nates his job reguirements by simple 
entries in pre-printed boxes — many of 
them multiple-choice pre-coded — on 
self-explanatory specification sheets 
from which matching specification cards 
are punched. For example, only a 



* Note : Sections delineated by upper- and 
lower-left riqht-anqle brackets contain 



supplementary details — often of a technical 
nature. 
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single specification card (in conjunc- 
tion with the T BM-supplied program 
deck) is needed to perform a collating 
operation. The specification sheets 
correspond, in effect, to the control 
panel of a unit record machine, but are 
simpler and quicker to complete than 
pluqboard wirina. 

The PCU programs provide most of the 
functions of IBM collators, reprodu- 
cers, gangpunches, summary punches, 
accounting machines, interpreters, and 
sorters (the latter practical with PCU 
only for large sort fields) . 

The PCUs are best used 



Among the full spectrum of Model 20 data 
processina that can be programmed with RPG 
are the followina common functions that can 
be performed individually or in any 
combination: 

• Report Writina 

Listings and group-printed reports 
containing up to nine control and 
total levels, plus a final total. 

• Summary Punching 

Up to nine levels of control, and 
final total level. 

• File Matching and/or Merging 

With or without selection of cards. 



For jobs that correspond to unit 
record functions; i.e., where little 
is tc be gained from the "systems" 
approach of processing an intearated 
series of jobs. For instance: 

To list and balance a keypunched 

deck of cards; 
Tc cross-foot fields in the same 

card ; 
To sequence-check a master file; 
Tc interpret a keypunched deck; 
Tc reproduce a file cf cards. 

A few of the applications that are 
easy to perform with PCU, are diffi- 
cult or impossible with RPG. Fcr 
example : 

Selection of the last card of 

each ccntrol group; 
Selection of sinale-card groups; 

S-CLtina-*. - -- 

For one-time jobs, where it may not 
be worthwhile tc design an inte- 
grated systems procedure; i.e., the 
"quick and dirty" solution. 

To continue qettinq the work out, 
durinq switch-over from unit record 
equipment to Model 20, for those 
jobs which the user has net yet had 
time to redesign and program to take 
full advantaqe of his Mcdel 20. 



• Card selection 

Eased on card type and/or results of 
calculations. 

• Ganqpunchinq 

Direct, offset, interspersed, 
major-minor. 

• Reproducinq 

• Card Document Printinq (Interpretinq) 

Feature available only for the 2560 
MFCM, Model A1. 

• Calculatinq 

Add, subtract, multiply, divide, 
cross-foot, compare. 

• Table T ook-up 



STEPS IN UTILIZING RPG 



RPG FUNCTIONS AND CHARACTERISTICS 



1. Problem definition 

The nature of the source data, the pro- 
cessing to be performed upon it, and 
the type and format of the resultinq 
output data must be determined. This 
encompasses such details as card-type 
identification codes, source and output 
card fields, calculations to be per- 
formed on the data, types of report 
totals desired, and arranqement of the 
data on a printed report. Printer 
Spacing Charts, IBM Form X24-3115, can 
facilitate the report layout (see 
Figure 1) . 



PURPCSE CF RPG 

RPG provides a quick and easy methed fcr 
writing programs tc accomplish most commer- 
cial data processinq jobs with the IBM 
System/360 Model 20, takinq full advantage 
cf the Mcdel 20 system's potential. It 
combines the attributes of flexibility, 
capability, and efficiency, with simplicity 
and absence of any requirement for pricr 
programming cr data processing experience. 



2. Proqramminq 

The programmer writes RPG specifica- 
tions. IBM provides preprinted forms 
for the convenience of the proqrammer. 
These forms quide the entries into the 
appropriate relative positions. The 
entries define his input and output 
data, the operations to be performed on 
the data, and the input and output 
devices to be utilized. 
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Fiaure 1. Printer Spacinq Chart 



The proqrammer is qiven wide lati- 
tude in the assignment of symbolic 
names to data files and fields, and 
most of the RPG-language operation 
codes are mnemonic. Much of the ced- 
ing, therefore, approaches the use of 
meaningful English, combined with accus- 
tomed use of card-column numbers and 
print positions. 

3. Punchina Specification Cards 

The program codes previously recorded 
on the specification sheets are key- 
punched, one card per specification 
line. The positions on each line cf a 
specification sheet correspond to the 
appropriate columns in the specifica- 
tion cards. 

4. Generating the Program 

The specification cards now become the 
program "source deck". The source deck 
and t^e IBM-supplied EFG Generator deck 
are then read into the System/360 Model 
20. Eased on the program contained in 
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sing unit (CPU) of the Model 20 acts 
upon the specifications in the source 



5. Data card files are placed in appropri- 
ate card feeds, forms and carriage con- 
trol tape are inserted in the printer, 
and the job is ready to run. 

Figure 2 is a qraphic representation of 
these steps. 

Input and Output Files (See also "File," 
under Definition of Terms, below.) 

Input Files 

The Model 20 card RPG can handle a maximum 
of three input files — one per card reading 
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device attached to the system. The pos- 
sible input devices are: 



IBM 2560 MFCM 
Hopper 1 

IBM 2560 MFCM 
Hopper 2 

IBM 2501 Card 
Reader 



or 

IEM 2520 Card 

Bead-Punch 



CD 



(Evaluate ^\ 
the ) 

Problem J 



_ f Write "\ 

®( rhe ) 

VSpecifications J 



RPG 
Generator 



I 



(Key-P unch ^y 
from the V 

Specifications J 





Source 
Deck 
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Generate 

Object 

Program 



/C 



Data 
Cards 
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Process 
Object 
Program 



Object 
Program 
Deck 



I 



Printed 
Report 



Card 
Output 
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Out put_ Files 

Up to five output files can be used — one 
per card punch device attached to the sys- 
tem, and cne or two for the printer. The 
possible output devices are: 



IEM 2560 MFCM 

Hopper 1 
IBM 2560 MFCM 

Hopper 2 
IBM 1442 Card 

Punch 

IBM 2203 Printer, 

Lower Feed 
IBM 2203 Printer, 

Upper Feed 



or 

IBM 2520 Card Punch 
cr Read-Punch 



or IBM 2203' Printer 
(standard carriage) 
cr IBM 1403 Printer 



Mote : Each device listed above for both 
input and output files may serve to treat a 
single file as both input and output. That 
file is then designated a "combined" file. 
The MFCM permits cards frcm either or both 
hoppers to be read and/or punched and/cr 
card-printed (interpreted) . 



• (The card document-printing special feature 
•is available only for the 2560 MFCM, Model 
S A1- ) 

Figure 3 is a schematic presentation of 
possible system configurations. 

•Note: With the IBM System/360 Model 20, 
•Submodel 3 or 4, the 2560 MFCM Model A2 and 
•the 2203 Printer Model A2 are the only I/O 
^devices permitted. 



2560 Multi- 
Function Card 
Machine 



2520 Card 
Read/Punch 



2520 Card 
Punch 



Storage 
4096 Bytes or 
8192 Bytes or 
12288 Bytes or 
16384 Bytes 



2020 

CENTRAL 
PROCESSING 
UNIT 




2501 

Card Reader 



1442 
Card Punch 



"Figure T 
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PERFORMANCE CHARACTERISTICS 

The Model 20 can perform input, output, and 
internal processing operations concurrent- 
ly; this is known as time sharing. The RPG 
makes optimum use of this time-sharing 
capability. Figure 4 shows which Model 20 
operations can be time shared. In the case 
of time-shared card-punching and printing 
on the MFCM Model A1, this refers to the 
printinq on one card while the next card is 
being punched. 

Details for estimating core storage 
requirements and timing are aiven in Appen- 
dix A . 



ORGANIZAT ION OF THIS PUBLICATION 

A summary of the functions of each of the 
five types of RPG specifications introduces 
the main portion of the manual. This 
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2560 MICH 



| 



DEVICE 



| POSSIBLE TIME-SHARING | 
OPERATION j COMBINATIONS | 
1 — r — i — r— i — i — i — i — t — i — i — i — i — i — I 



t — i — i — i — i — i — t — r 
Read |+|+| | | | | 1 j 
Punch j | |+| |+| | | |+ 
Card Print | | | l+l + l | 
-H4-4-+-4-+-+-+-+-4 



2520 Card Read-Punch 



Read 
Punch 



I I I I I 1+1+ 

J I I I I I I 



+-4-4H 



2520 Card Punch 



Punch 



I I I I I I I 



-4-4-4-4-4-4-4H 
+1+1 I I 



_4 4_4_ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ l 

l+l l+l 
4-4-4-H 



1442 Card Punch | Punch l+l I I I I l+ 
I F 4-4-4-4-4-4-4- 



OCH1 S^-i-r-A -D^-^^-r- 



2203 or 1403 Printer | Erint 



| 2020 CPU 



-4-4-4-4-4-4-4- 
I+I+I+I+I+I+I+ 
-4-4-4-4 1 I I 



| Processing I + I + I + I + I + I + I + 



+ 1 
+ 1 



-4-4 



+ 1 + 



I I I I 
I I I 1 
I I l + l 
4-4-4-4—1 



I I I I 
i i + l I 



-4-4-4-H 
+I+I+I+I 
-4-4— i— I 



+I+I+I+I 



-J. I I I I I L I L I I I L 



Note: Each vertical column shows a set of functions that may be 
time shared. 

• In the case of time-shared card-punching and printing on 
•the MFCM Model A1 , this refers to the printing cf one card 
I while the next card is being punched. 

Figure 4. System/360 Model 20 Time Sharing Potential 



abbreviated summary appears here only to 
facilitate relating subsequent sections to 
the specifications forms. 



The specifications-types summary is fol- 
lowed by an example of specif icaticns writ- 
ten for an RPG program, annotated with 
broadly-qeneralized explanations of the 
entries. The purpose of the section is 
merely tc offer the novice an illustration 
of what a program written for RPG locks 
like. Full details are given in subsequent 
sections, which also incorporate any 
explanations given in the introductory 
example. This initial example dees not 
fully cover the sicrnif icance of, or limita- 
tions on, each entry. It should not be 
used as a reference for precise knowledge. 
Readers familiar with the concepts of RPG 
can bypass it. 



The main portion of the manual is 
devoted to the detailed information needed 
by the user to write programs for his jobs 
that can then be converted to machine lan- 
ouage by the Report Program Generator. 

The information is presented in the fol- 
lowina sequence: 

1. Definition o^ recurring terminology 

2. Graphic presentation and discussion of 
program logic flow 



3. Indicators 

4. Control fields 

5. Hatching of files 

6. Sequence checking 

7. Possible entries for every field of 
each specifications sheet (or card), 
including normal and unusual functions 
of each entry; warnings, where appro- 
priate, about improper coding; inter- 
spersed illustrations for clarification 
of possibly abstruse points. 

Limitations of the RPG Program are 
explicitly stated, where appropriate and 
not obvious. 



Lengthy des 
uses of a code 
are marked off 
not to detract 
cipal topic, 
reader unfamil 
passages until 
of the basics, 
al supplementa 
value only in 
a small segmen 
relegated to a 
practical. 



criptiens of rare, yet valid, 
, or a specifications field, 
by corner brackets, so as 
from emphasis on the prin- 
It is suggested that the 
iar with RPG bypass these 
he has a clear understanding 
Where extensive or technic- 
ry explanations are deemed of 
exceptional situations and to 
t of users, they have been 
n appendix when this was 



Three complete and realistic application 
examples are included, in addition to the 
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Introductory Programming Example, to 
illustrate a large proportion of the pro- 
aram functions and cedes. Each specifica- 
tion is explained. 

The examples are: 

1. Sales commission calculation and 
report. 

2. An order-entry pre-billing application, 
with updating of the inventory file 
prior to invoicing. 

3. The subsequent invoicing operation, 
with creation of accounts receivable 
invoice summary cards. Three lines of 
customer name and address printed from 
a single card, with ship-tc name and 
address printed parallel from another 
card. A simple table look-up operation 
is included. 

A number of technical appendices follow 
(see Contents) . Included is an appendix 
containinq proaramming tips, and a summary 
of RPG specifications sheet entries laid 
out for convenient use if removed from the 
manual. The index, which concludes the 
manual, attempts to reference every infor- 
mative mention of a relevant subject. 
Underscored paae numbers designate the 
locations of the fullest discussion of the 
particular topic. 



FUNCTION CF BPG SPECIFTCAT ICNS SHEETS AND 
CAFDS--SUMMASY 

The RPG specifications sheets supplied by 
IBM (in pads) represent a convenient means 

■■xi3T~Tnne-FT"oT^^TneT'~trcnre 

tion (instructions) to be keypunched as 
input to the RPG program, so that it will 
generate the appropriate machine-language 
program tc perform the desired job. 

The format and column headings of these 
sheets assist in guiding the programmer's 
entries. The forms are so designed that 
one specification card is to be punched per 
line, with each column en the sheet corre- 
sponding to a card column, in the same 
order. Card supplies with the appropriate 
RPG specification fields delineated can be 
purchased from IBM. 

The RPG specifications sheets can also 
serve as documentation of the source 
program. 

There are five types of specifications 
sheets and cards, each serving a different 
purpose, as outlined below. The forms are 
presented in the order in which they are 
most likely to be used by the programmer 
— not the order in which the different 
types of specification cards are entered 



for program generation. The details con- 
cerning the entries for the specifications 
sheets are covered in subsequent major sec- 
tions of the manual, where pictures of each 
type of sheet are also reproduced. 



In addition to the punched specification 
cards, the user must supply an RPG Control 
Card (Card H) . This card is fully 
described in the publication IB M System/36 
Model 20, Report Program Ge nerator for 
Pun ch ed-Card Equipment, Operating Proce- 
du res (Form C26-3800). The control card 
specifies: 

T. Core storage capacities of the systems 
used to generate and to execute the 
object program 

2. Whether, and on which machine type, the 
object program is to be punched 

3. Whether a generation listing is to be 
printed, and whether minor — as well as 
ma jor--source deck errors are to cause 
a halt during generation of the object 
program 

4. Atypical MFCM input and output card 
stacking sequences 

5. Additional IBM 250 1 input core buffer 
storage, if desired 

6. The number of print positions utilized 
by the object program 

7. The format of any Sterling-currency 
fields (British monetary system) 

Substitution of decimal comma for deci- 

¥aT"" p cTnT~~in' numeTTc' ll^eTaTs"' Ti^eT," 

European notation) . 



Type s of Sp ecificat ion s S h e ets and Cards 

File Description Specifications (Reguired) 
(Sheets: Form X24-3347. Card electro- 
plate: Form 3347) 

Used to assign a symbolic name and, when 
appropriate, card seguence (ascending or 
descending) to each file; to associate each 
file name with a specific input and/or out- 
put device; and to define whether the file 
is to serve as input, as output, or both. 
For multiple input files, entries on this 
form also establish which file or files 
control end-of-job routines. 

Input specifications (Reguired) 
(Sheets: Form X24-3350. Card electro- 
plate: Form 3350) 

Used to describe the input files: identi- 
fication of card types within each file; 
stacker selection of cards, based on card 
type; specification of card-type seguence 
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stacker selection cf output- or combined- 
symbclic names and decimal positions tc file cards, and f orms-carriaae spacing and 
input card fields; "tagging" of (i.e., set- skipping. 
ting indicators for) card fields with posi- 
tive, neqative, or zero/tlank contents; Note: A limited number of applications can 
assignment of control fields, and cf fields be performed with only File Description and 

tc fce matched between cards in different Input Specifications. For example: 
input files; file seguence-check instruc- sequence checks, and/or stacker selection 
tions. For multiple input files, the crder based on card type, 
cf precedence of the files is also estab- 
lished by the sequence in which the files 
are entered en this form. 

PROGRAM COMPATIBILITY 
Calculation Specifications (Optional) 

(Sheets: Form X24-3351. Card electro- All functions that can be specified in the 
plate: Form 3351) Model 20 card RPG can also be specified in 

other IBM System/360 Report Program Genera- 
Used to describe the processing (calculat- tors provided that an adequate I/O confi- 
ino, cemparing, etc.) tc be performed on guration is available, 
the data. 

Specifications which are presently 
File Extensicn Specifications (Optional) unique to the Model 20 RPG are those sup- 
sheets: Form X24-3348. Card electro- porting the IBM 2560 Multi-Function Card 

plate: Fcrra 3348) J Machine (card printing, on the MFCM Model 

•A1, and collator-type operations) and dual- 
Needed to describe the tables tc be used feed carriage feature, 
with the Table-Lookup feature. Unless the 

Table-Lookup (LC^UF) instruction is used in For further details, refer to the rele- 
the program, the File Extension form is not vant SRL publication for ether versions of 
used. IBM System/360. 

Output-Format Specif icatiens (Optional) 

(Sheets: Form X24-3352. Card electro- MACHINE UNITS AND FEATURES REQUIRED AND 

plate: Form 3352) SUPPOR TED 

Used to specify the arranqement of the data Appendix B lists the machine units and fea- 
cn printed reports and/or in output cards. tures required and supported for the Model 
Also includes such functiens as editing, 20 card RPG. 
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INTRODUCTORY PROGRAM EXAMPLE 



This chapter can be bypassed by users fami- 
liar with the ccncept of RPG. Its sole 
purpose is to give the ncvice a general 
insight into the approach to solving a sim- 
plified problem with RPG specifications. 
The explanations given are in troad terms 
only and are repeated in greater depth in 
subseguent sections. The example is net 
suitable as a reference for a full under- 
standinq of the specifications employed — 
while all specifications entries made here 
are valid, greater detail is necessary 
before the codes can be applied in all 
ether circumstances. 



THE JOB REQUIREME NTS 
Given 

1. Customer Name cards—one per customer. 

Name, in cols. 1-20; address in cols. 

21-40 and 41-60 

Salesman No., in cols. 73-74 

Acccunt No., in cols. 75-79 

Card identification (3-8-9) , in col. 

80 

2. Eaily Sales Summary cards — at least one 
per customer 

Acccunt No., in cols. 1-5 

Amount, in eels. 7-13. (Ccls. 12-13 

are deciwal positions.) 

X-punch (11-punch) over col. 13 for 

credit (returns) 

Gross profit percent for product 

group, in ccls. 16-17 

Date, in ccls. 75-79 (day, menth, 

last digit of year) 

Card identification (1), in col. 80 

--may have 11- or 12-cverpunch. 

Results Desired 



Month and year only (slash between) 
— print on first detail line of each 
account. Eliminate leading zero in 
month only. 

Account No. — print only from first 
card for each account, and on forms 
overflow. Do not eliminate zeros. 

Customer Name — print from first 
card of each acccunt, on same line as 
first detail card. 

Amcunt--list, but positive and 
negative amounts in separate columns. 
Eliminate leading zeros to decimal. 
Edit with comma and decimal point. 
Do net print sign for negative 
amounts. 

Amount — Net total by account, and 
grand total at end of report, with CR 
if negative. Eliminate leading zeros 
to decimal point. 

Gross prof it--Total by account and 
grand total at end of report, with 
minus sign if negative. Eliminate 
leading zeros to decimal point. 

Amount of returns as percent of 
sales amount, for final total only. 
Eliminate first two leading zeros. 
Suppress line if positive sales are 
zero. 



Print suitable headings over 
columns on first page. 

3. a. Select negative-amount summary 

cards to a different stacker, 
b. Separate Customer Name cards from 
Daily Sales Summary cards. 

4. Stop program if first card of control 
group is not Customer Name card. 



1. Punch Monthly Summary cards— one per 
account 

Account Nc, in cols. 1-5 

Total amcunt, in ccls. 6-13 

X-punch (11-punch) over col. 13 if 

neqative 

Total gross profit, in cols. 14-21 

Salesman No., in ccls. 73-74 

Date (month and year only) , in ccls. 

77-79 

Card identification (9), in col. 80. 

2. Printed Report 



THE RPG S PECIFICATIONS 

Fiqures 5A-5F shew the printer layout and 
RPG specifications needed to produce the 
printed report shown in Fig. 5G. Explana- 
tions of the entries fellow. Of necessity 
— since this example was deliberately 
inserted ahead of treatment of specifica- 
tions entries — the discussion deals with 
items not yet covered, but will serve to 
illustrate the general approach. Obvious- 
ly, with a language as flexible as RPG, the 
same results could be achieved by several 
alternate methods. 
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Figure 5C. Introductory Program Example, Input Specifications 
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Figure 5E. Introductory Program Example, Output-Format Specifications (Part I of II) 
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EX£LANATICN_OF_SPECIFICATICNS i (FIGURE_5l 

File Des cri ptio n S pe ci f i caticns — Figur e 5B 

Line 1 arbitrarily assigns the name 
SLSDETL tc the input (I) data file consist- 
ing of the Customer Name cards and Daily 
Sales Summary cards. The DEVICE entry spe- 
cifies that this file will be placed in 
hopper 1 of the IBM 2560 BFCH. 

line 02 assigns the file name SLSSUMRY to 
the deck of blank cards, tc be placed in 
hopper 2 of the MFCM, which will beccme the 
Mont hi v Summar v cutout 'C^ cards* 

Line 3 specifies that printer output will 
be referred to by the file name REPORT. 

These entries serve two tasic purposes: 

1. To associate a specific input and/or 
output unit with a file name that will 
subsequently be referenced in the pro- 
gram; and 

2. To specify whether a given file is tc 
serve as input for data, output, or 
both. 

Input Specifications — Figure 5C 

The input file — labelled SLSDETL in the 
File Description Specif icaticns--ccnsists 
of two types of cards. 

Li ne 1 of the Input Specifications arbi- 
trarily assigns "Indicator C1" (cols. 
19-20 in the specifications) to the Custom- 
er Name card. The Customer Name card is 
identified by the punches 3-8-9 (a common 
unit record MLP or MIR code) in col. 80 
(see specifications entries in cols. 
23-24, 26, 27) . 

Line 5 assigns indicator 06 to the Daily 
Sales Summary card, identified by digit 1 
in ccl. 80. D (digit), rather than C 
(character) , was entered in col. 26, to 
eliminate a possible 11- or 12-overpunch in 
col. 80 from affecting the comparison with 
digit 1 . 

"Indicators" are discussed in detail in 
the next chapter. Eriefly: the RPG Pro- 
gram provides for a large number of indica- 
tors which are either set by the RPG Pro- 
gram itself, or may be set by the program- 
mer, to identify a condition. They may 
then be specified elsewhere in the proaram 
to ccnditicn the execution of a specifica- 
tion on the setting (ON or NCT CN) of the 
indicator. 

Indicator 01. in this example, will be 
on when a card with 3-8-9 in ccl. 80 (Cus- 
tomer Name card) is being processed. 
Execution of certain instructions can then 



conveniently be associated with "Customer 
Name card", or "not Customer Name card", as 
desired. 

When stacker selection is not specified, 
cards enter the normal stacker for the par- 
ticular hopper of the I/O unit used. For 
hopper 1 of the MFCM, this is stacker 1. 
The card type identified by indicator C6 
therefore enters stacker 1 . The card type 
with indicator 01 (Customer Name card) is 
directed tc stacker 2 by the entry in col. 
42. 

The entries in eels. 15—16 s n ecif v that 
the proper order of card types is Customer 
Name card (01 in cols. 15-16) followed by 
Daily Sales Summary card (s) (02 in cols. 
15-16), which in turn are followed by the 
next Customer Name card. The 1 in col. 17 
for the Customer Name card specifies that 
there must be exactly one such card before 
the Daily Sales Summary card. The N in 
col. 17 for the Daily Sales Summary card 
specifies that there must be at least one 
such card, but that any guantity of such 
cards greater than is correct. If the 
card-type sequence does net conform to 
these specifications, an error stop occurs. 
Note, however, that the absence of a Cus- 
tomer Name card would not be detected — this 
would te treated as more than one Daily 
Sales Summary card. This contingency is 
guarded against by the specifications on 
line C6 of the Calculation Specifications. 

Lines C2-C4, a nd 06 -09, contain the names 
the programmer has arbitrarily assiqned to 
the fields he will subsequently utilize 
from the two input card types, respective- 
ly. They are preceded by their column num- 
bers in the input cards. Col. 52 in the 
Input Specifications assigns the location 
of the decimal point of input fields, for 
automatic alignment in calculations. Use 
of a field in calculations or numeric com- 
parison, or editing its output, reguires a 
decimal specification even if no decimal 
point is relevant. This explains the for 
MOYR. Note that field names start one line 
below identification of their record types. 

The entry in cols. 59-6C, next to 
ACCTNO, specifies that the Account 
No. field in both card types (note that it 
may be in different card columns in the two 
card types) is to be a control field, at 
the lowest level. (Nine control levels, 
L1-L9, are available.) Whenever there is a 
change in the contents of the Account 
No. field between successive cards, the L1 
indicator turns on for one proqram cycle. 
The CN or NOT ON status of the LI indicator 
can be used to control operations. 

The entry in cols. 69-7C makes the sta- 
tus of indicator 10 dependent en the NAME 
field of each Customer Name card (Eesultinq 
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Indicator 01). Since that field is never 
blank in that card, indicator 10 will turn 
off each time a Customer Name card is pro- 
cessed. (It wculd be turned on by a blank 
NAME field.) In this program example, 
indicator 10 is turned en by another 
method, described later. 

The requirements of the jcb call fcr 
printing the amount of returns (negative 
sales amounts) in a separate cclumn. An 
indicator is needed to identify such cases. 
Indicator C7 (in eels. 67-66) will turn on 
when a Daily Sales Summary card with a 
negative amount is being processed, and 
will be off when the amount is positive or 
zero. 

Calculatio n Spe cifications — figur e 5 D 

Calculations occur at detail time unless an 
T-indicatcr (control level) specification 
appears in cols. 7-8 (Control Level) — in 
which case that calculation takes place at 
total time. (Detail and Total times are 
discussed in the next chapter.) Thus, the 
calculations specified on lines 01-05 are 
executed at detail time; these or lines 
06-10, at total time. All detail-time 
entries must precede all total-time 
entries. Within this grouping, calcula- 
tions are performed in the order in which 
the specifications appear. A summary of 
the functions of the entries, by line, 
follows. 

line 01. Executed only when prccessinq 
card type 06 (Daily Sales Summary card) , 
because the indicator for that card type is 
designated as a condition. 

The contents of the AMOUNT field are 
added (Operation cede ADE) to the contents 
of TCTAMT field, and the result is stored 
as the new contents of TCTAMT field. 
TOTAMT field has net been previously 
specified; it is created by the entry in 
Result Field. (Field Length is specified 
as 8 diqits, of which 2 are decimal 
positions — the same number cf decimals as 
in the scurce (AMOUNT) field. If the 
number of decimals specified here were to 
be different frcm those in the scurce 
field, alignment wculd be automatic.) This 
is the normal method for accumulating 
detail-card amounts for group totals. When 
object-program execution begins, the user 
may assume that the fields are all set to 
zero. Thereafter, each detail card amount 
is algebraically added tc the previous 
total in the TOTAMT field, because TCTAMT 
is the addend (Factor 2) and the new result 
replaces the former TOTAMT contents. 

Negative amounts (11-punch ever low- 
order position) are automatically sub- 
tracted. An indicator (C8) is specified 
for the i(3entif icaticn of a negative amount 



in the TCTAMT field, so that summary cards 
(one punched at each control break) with a 
negative sales amount can be selected to a 
separate stacker. The status of indicator 
08 can change after each algebraic addi- 
tion. Its status is, however, only used in 
this example at the end of a control qroup, 
when it correctly reflects the sign cf the 
total. 

Line 02. The amount (with 2 decimal posi- 
tions) in each detail card is algebraically 
multiplied by the gross profit percentage 

(2 decimal positions only, tc transform 
percentage to ratio) for that product 
group. The resulting amount of profit 

(GRSPRF) contains four decimals, of which 
only two are desired. Specifying "2" auto- 
matically causes dropping of the two excess 
low-order positions. The "H" in col. 53 
causes half-adjustment before the third 
decimal is dropped. The previous contents 
of the Result Field are replaced each time 
by the new result. 

Line_03_j_ The latest gross profit amount 
(GRSPRF) is algebraically added to the pre- 
vious cumulation (which is zero if this is 
the first detail card) to provide a total 
for the ccntrcl grcup. 

Lines 04 and 05. These entries provide the 
final total of returns (negative sales) and 
of positive sales, so that the ratio of 
returns (FTOTRT) to positive sales (ETOTSL) 
may be calculated before the final total is 
printed. 

Line 05 causes adding cf the amcunt from 
each detail card (indicator 06) to FTOTSL-- 
pr.av.ided-A-KO-U.NT- is-.p-ositi ve -4i^dica±or - C7 - - 
not on = N07 in cols. 12-14), as deter- 
mined by indicator 07 in the Input Specifi- 
cations. Indicator 09 is set on for zero 
results — see line 10 for its application. 

Line 04 similarly provides for cumulat- 
ing FTOTRT for negative amounts (indicator 
07 on). Since a positive total is desired, 
and all amounts for this line--by 
definition — are negative, these negative 
amounts are subtracted from FTOTRT. (Sub- 
tracting a negative amount yields positive 
result.) This entry also illustrates abso- 
lute addition. 

Line_06_^ Indicator HI is set on--which 
will cause the system to stop after proces- 
sing of the new card — if a control break 
(change in contents cf ACCTNC field) occurs 
(L1 on) and the new card is not a Customer 
Name card (N01) . 

Line 07. When a ccntrcl break has occurred 
(L1 on), the total amount (TOTAMT), accumu- 
lated above (line C1) algebraically fcr 
each ccntrcl group, is added algebraically 
to FTOTAM (which is zero in the case of 
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the first control group) to provide a final 
amount total at the end of the report. The 
total transfer must occur at this time, 
because TCTAMT must be reset to zero before 
the amount field from the first detail card 
of the new control group is added to it. 
TOTAMT then correctly reflects the tctal 
for each ccntrcl group. The FTCTAM field 
has teen specified as larger than TOTAMT, 
to accommodate the sum of several TOTAMT 
group totals. 

Line_C£U Similar to line C7, but cumulates 
final total cf gross profit (FTGTPR) , based 
en group total from line C3, 

line 09. This adjusts the size of, and 
number of decimal positions in, the final- 
total- returns (FTOTRT) field (frcm line 
04) , so that the size and decimal alignment 
are suitable for line 10. Operation code 
Z-ADD resets the Result Field tc zerc prior 
to adding in the data frcm the Factor-2 
field. Since the operation is performed 
only once per job--after processing cf the 
last data card (LS indicator = Last Record) 
— ADD could have heen used egually well as 
the operation code. 

Line 10. Before the firal total is 
printed, the specification on this line 
causes the calculation of the ratio cf 
total returns (RTRDVD, based on FTOTRT in 
line 04 and shifted left in line C9) to 
total positive sales. 

The calculation is enly performed after 
processing of the last data card (LR is 
then on) , and provided there was a positive 
sales total (N09) . Indicator 09 is set en 
in line 05 for a zerc final total of posi- 
tive sales. Ccnditicning the instruction 
on N09 is required because a divisor must 
not be zerc, 



be used interchangeably.) T in col. 15 
specifies total-time output. 

Specification l ine 1 on pa ge 04. Indica- 
tor 1P in eels. 24-25 determines that the 
output entries in lines C1-C7 apply to the 
first paae only. The 1F indicator is set 
on by the RPG Program itself at the begin- 
ning cf program execution, and is turned 
off before the first card is processed. 
This output, therefore, occurs only once, 
before processing cf the first card. Tt is 
used to print headings. After the heading 
line, the form advances 3 spaces (col. 18). 

Specif icaticn_lines_02-07 specify the head- 
ing data to be printed. The data within 
apostrophes is printed as shown (without 
the apostrophes, which merely identify the 
entries as constants) . The numbers in 
cols. 41-43 designate the rightmost print 
positions for the respective constants to 
be printed. 

Specif icati on lines C9-10. The jot 
requirements call for printing Account Ko. 
(ACCTNC) on the same line as the first 
detail card of a ccntrcl grcup, ar^ tc 
repeat the Account No. as the only io< nti- 
fication en overflow pages. The Account 
No. is to be printed with its rightmost 
position in print position 12 (see entry in 
cols. 4 1-43). Indicator CF in cols. 24-25 
confines this output to overflow time. 

Eecause ACCTNC is also printed on the 
first line cf a new ccntrcl grcup (see 
explanation for line 14) — and overflow time 
is separate from regular detail or total 
time (see next chapter) --the line must also 
be conditioned not to print if a control 
break has occurred (NL1 in cols. 26-28); 
otherwise, Account No. will print twice in 
that situation. 



A dividend (RTRDVD) with 5 decimal posi- 
tions, ard a divisor with 2, yield a quo- 
tient with 3 decimal positions (col. 52). 
The H in ecl . 53 causes half-adjustment of 
an extra decimal pesitier (automatically 
provided for by the RPG Program) before it 
is dropped. 

Output-Fcr ma t Specif icatiens; — Figures 5F 
and_5F 

Printed Report 

The file rame REPORT was designated an 
output file, and associated with the 
printer, in the File Description 
Specif icatiens. Thus, its entry here 
thereby calls for printer output for all 
specifications below, until a different 
file name appears. H (heading) or D 
(detail) in column 15 specifies that the 
ensuing entries apply to detail- (rather 
than total-) time processing. (H and E may 



When any overflow indicator is used in 
the output specifications, forms-advance to 
channel 1, after a channel-12 punch has 
been sensed, is. rot automatic; therefore, 
Skip-Eefore to channel 1 (01 in cols. 
19-20) is specified. No space (0) or skip 
is specified to follow the overflew indica- 
tion, because the data frcm the next detail 
card is to be printed on the same line. 

Specif icaticn_line__1 2^ Indicator 06 in 
cols. 24-25 conditions line 12 on page 04 
through line 02 on page 05 tc apply only to 
detail cards (Daily Sales Summary); i.e., 
all printing takes place when detail cards 
are beinq processed. 

The job requirements stated that Account 
No. and Name are to he printed on the same 
line as the first detail-card data, 
although Name is available only from the 
Customer Name card. This can be accom- 
plished in several ways. The method chesen 
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here utilizes the fact that any field 
retains its data until read intc again, or 
reset. Thus, the Customer Name is still in 
the NAME area in core while detail cards of 
the same group are being processed — until 
the nest Customer Name card is processed, 
or the field is blanked by a program 
instruction. The name can, therefore, be 
printed at detail-card time. Col. 18 spe- 
cifies single spacing after each detail 
line. 
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page 04, through line 2 f page 05. 
ut, the Field Name in cols. 32-37 
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to be printed. The size of each 
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d, as edited and including edit- 
stants, is to end. The printing of 
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licatle to the entire print line), 
format may be edited (see below) . 
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Spe c ific ation lines 01-02 en pag e 05 . The 
printing specified in line 01 is performed 
when the detail-card amount is positive 
(N07) , and that in line 02 when it is nega- 
tive (indicator 07 on) . (The setting of 
indicator 07 occurs in the Input Specifica- 
tions.) Thus, positive amounts are listed 
to the left cf negative amounts. 

Specification line C3 en page 05. T in 
col r 15 designates execution at total time. 
The L1 indicator in cols. 24-25 conditions 
execution cf the print line to occur en 
each Level-1 control break, i.e., a break 
en Account Nc. Ccl. 17 specifies a single 
space before this total line which, in con- 
junction with the single space after detail 
lines, leaves one blank line before the 
group totals. Three spaces after the 



group-total line (3 in col. 18) leave 2 
blank lines before the next detail line. 

Specificati on lines 04-05. Similar to pre- 
viously explained field entries, but the 
fields are printed at Ievel-1 total time. 

Specif ication_line_C7_on_page_05. T in 
col. 15 designates execution at total time. 
The LE indicator in cols. 24-25 conditions 
execution cf the print line further, to 
occur only after the last data card (Last 
Record) has been processed; i.e., for final 
totals. Cols. 21-22 contain the specifica- 
tion to skip the form to channel 1 after 
printing the final total. 

Specif ic aticn line 09. Besides being 
printed only at final total time, indicator 

09 must be off (N09) to cause the PCTBTE 
(Percent Eeturns) field to print. The 
reason for this is that, if FTOTSL (Final 
Total Sales) was zero at the end of the 
report, PCTETE was net calculated because a 
zero divisor would be meaningless (and 
division by zero is not allowed) . (See 
also Calculation Specification lines C5 and 

10 for establishment and application cf 
indicator 09.) 

Edit ing. When data appears between single 
guotes in eels. 45-70, on the same line as 
a Field Name, the entry modifies the format 
in which the data is printed. Only fields 
to which a decimal position (C-9) was 
assigned may be edited; that is, fields 
designated as purely numeric. Illustra- 
tions follow. 

Specification line 13, page 04, eels. 

.jl_ : __5Jl i -Spg.ei f ies .— 1 .hxut~ a-slash .. is. . to- appear 

between Mcnth and Year digits. A zero in 
the first column of Month is automatically 
suppressed, because an edit word is used. 

Line 14. All zeros in ACCTNC will be 
printed, because nc editina or zero sup- 
press is specified (it can only be speci- 
fied for a field defined as numeric; i.e., 
a field for which Decimal Positions has an 
entry where the field is defined) . 

Lin§s_0J-0 2 x _pag_e_C5_. Leading zeros are 
eliminated, through the dollar position. 
Decimal point and two low-order positions 
are always printed in this example. Comma 
is printed between hundreds and thousands 
positions when there are significant digits 
to its left. 



Lines_C4 Jt _^5__^8 x _JC_ : , Similar to editing 
of lines 01 and 02, but CE or minus symbol 
(respectively, as shewn) is printed for 
negative amounts. 

Line 09, page 05. Leading zeros are eli- 
minated only in the tens and hundreds posi- 
tions. The decimal point and a percent 
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sign, followed by the letters RTRN, are 
always printed when the print line is 
printed. Zero percent is printed as 0.0% 
BTEN. Note that, ty means of the decimal 
point in the edit wcrd, the ratio with 3 
decimals (Calculation Specification Line 
10) is converted tack to a p erce ntage with 
1 decimal pcsiticn. 

Pu nc he d Cu tput 

The file name SLSSUMRY was designated an 
output file, and associated with hcpper 2 
cf the MECM, in the File Description Speci- 
fications. Thus its entr" in the Output- 
Format Specif icaticns calls for card out- 
put, the card source being MFCH hcpper 2. 
The T in col. 15 specifies output at total 
(rather than detail) time. The entries 
(L1) in cols. 21-25 specify punching of 
the card at each ccntrcl hreak cf Level 1. 

The OE in cols. 14-15 designates that 
the same punch data applies when the condi- 
tions for either specifications line 12 or 
13 are met, subject to any further condi- 
tioning indicators. The difference in con- 
ditions is that line 12 applies if TCTAMT 



is positive, and line 13 if it is neqative, 
at group control-break time. (See cols. 
26-28 here, and line 01 in Calculation Spec- 
ifications.) When positive, the card 
enters the normal stacker for hopper 2 of 
the MFCM; when negative, it is selected to 
stacker 3 (see entry in col. 16) . 



Lines 14-18 specify which fields — defined 
in Input or Calculation Specifications — are 
to be punched into the Monthly Summary 
cards, together with the low-order-position 
columns where the fields are to end in the 

AI1+TM1+ s^^-r-A 
\J l_l l^ k-> U *- ^U.J_VJ.. 

Lin e 19 specifies that the constant 9 is to 
be punched in col. 80. (The absence of a 
Field Name designates cols. 45-70 as 
available for a constant rather than an 
edit word.) 

The B in col. 39 (Blank-After) on lines 15 
and 1 6 directs the prograa, to reset the 
TOTAMT and TOTPRF fields to zero after they 
have been transferred to the output area, 
so that they are cleared to accumulate 
totals for the next control group. 
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PROGRAMMING FOP EPG — GENEBAL INFCRMATICN 



This chapter deals with facts and functions 
that must he understood tc derive the full- 
est benefits frcm RPG. In order to provide 
complete information on these subjects at 
cne reference point, the chapter delves 
into considerable detail and, occasionally, 
complexities. This was considered prefer- 
able, frcm the user's viewpoint, tc scat- 
tering related facets throughout the volume. 

If the meaning or relevance cf all 
statements made in this chapter is not 
apparent on a first reading, the user 
should not be concerned: they are 
illustrated as the manual proceeds. Eoth 
the ensuinq itemized coverage of each 
specification field and the appended 
extensive applications exairples clarify the 
contents of this chapter, and make frequent 
reference to them. 

It is, therefore, suagested that the 
user read this chapter thoroughly cnce and, 
thereafter, expect to revert tc appropriate 
portions cf it repeatedly. 



EEFXNITICN OF TERMS 

Terminology that recurs throughout this 
publication is defined belcw, as i t ap plies 
to Mcdel 20 card RPG: 

File 



Note: A single card file can serve as both 
input and cutput. It is then termed a 
"combined file"--see definition for combi- 
ned file, below. 



Input File 

Cne input file consists cf all the cards 
that originate (i.e., enter the system) 
from one hopper of a card read or read- 
punch device, and fulfill all of the fol- 
lowing conditions: 

1. All the cards are to te read (i.e., 
punches in the card serve as input to 
the system). There must be an entry 
for them in the Input Specifications. 

2. None of the cards are tc be punched. 

3. None of the cards are to be interpreted 
(card-printed) . 

4. None cf the cards are to be stacker- 
selected on the basis cf information 



net in the card itself; i.e., they can 
only be stacker-selected by designation 
on the Input Specifications sheet on 
the tasis of card type. 



In summary: There is no entry for an input 
file in the output specifications. 

Cutput Card File 

One card output file consists of all the 
cards that originate from one hopper cf a 
card punch, or read-punch device, and ful- 
fill all of the following conditions: 

1. All of the cards are to be punched and/ 
or interpreted (card-printed) by 
entries on the Output-Format Specifica- 
tions sheet. 

2. Ncne of the cards are tc be read. 

In summary: There is no entry for an out- 
put file in the input specifications. The 
cards in the file may be blank or pre- 
punched, but they will not be read. 

Combined File 

Cne combined ^ile consists of all the cards 
that originate from one hepper of a read- 
punch device to which the followinq condi- 
tion applies: 

All or some of the cards serve as input 
to the system and all or some of the 
cards — regardless of whether they are 
the same or different cards in the file 
--also serve as output; i.e., the file 
reguires entries both on the Input and 
Output-Format Specifications sheets. 

A combined file is a sinqle file. 

Output Printer File 

All report (paper forms) printing performed 
by one program under ccntrol of a sinqle 
forms carriage is designated as one output 
file. 

For the IEM 1403 or standard 2203 Print- 
er, this implies that all print lines are 
identified as belonging to a single file. 
If the Dual-Feed Carriaqe special feature 
is installed on the IBM 2203, and both car- 
riages are to be used in one proqram , the 
lower and upper feeds are treated as two 
separate output files. 
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EBCDIC — EXTENDED BIN AEY— CCEEE - EEC I Mil 
INTERCHANGE CODE 

EBCDIC is the IEM System/360 machine cede. 
It provides for 256 unique characters. For 
further details, see Appendix D, Figure D1, 
and the publication TBH_System/3 60_Mcdel 
20, Functional Characteristics (Form 
A2 6-5847) . 

Characters 

Alphabetic Characters 

The 26 letters of the English alphabet, 
plus these three characters: 



Dollar Sign ($) 
At-siqn (a.) 



— card punch- 
ccmbinaticn 
1 1-3-8 

— card punch- 
ccmbinaticn 
4-8 
Pound cr Number sign (#) — card punch- 

ccmbinaticn 
3-8 



^ositicn cnl v « Elanks in dioit positions 
of a numeric input field are converted to 
zeros. Zone punches in an input field, in 
other than the lew-cider position, are 
stripped. 

Note: For other possible punches in numer- 
ic fields, see Packed and Decimal_Posi- 
tion s, under Inp ut Specifica tion s. 

Literals 

A literal is the actual data to be operated 
upon, rather than a symbolic name repre- 
senting the location of the data in cere 
storage. The specifications sheet entry 
must be left- justified . 

A literal is stored in storage only 
once, regardless of how cften it is used — 
provided it is always the same size, and 
used in identical format (always alphamer- 
ic; cr always numeric, with decimal point 
position uniform; if numeric, always with 
the same sign designation or always without 
sign) . 



Numeric Characters 

The digits through 9. 

Special Characters 

The 217 EBCDIC characters not defined as 
alphabetic or numeric. 

Alphameric Characters 



Alphameric literals 

Alphameric literals consist of any one or 
more of the 256 EBCDIC characters (see 
Appendix D, Figure D1, for the appropriate 
card punch-combinations) . Initial and ter- 
minal apostrophe symbols (') — card punch- 
combinations 5-8 — are required. They 
designate the literal as alphameric and 
define its extent. 

If an apostrophe is required within the 
literal itself, it must be specified as two 



blank. 
Fields 
Alphameric Fields 



All fields for which a Decimal Positions 
specification (C-9) has not been made in 
the appropriate column of any of the per- 
tinent specification forms — regardless of 
whether the field contents are alphabetic, 
numeric, cr alphameric. Zero and blank are 
distinguished. 



Numeric Eields 

All fields that have a Decimal Positions 
specification (0-9) in the appropriate 
column of any of the pertinent specifica- 
tion forms. 

Numeric fields contain numeric charac- 
ters, and possibly a plus (12-punch) or 
minus (11-punch) sign ever the rightmost 



aracters, including consecutive a n ostrcphes 'two card columns- 
each punched 5-8) --independently of the 
apostrophes needed to define and delimit 
the alphameric literal. Such an apostrophe 
within the literal consumes two of the 
number of positions allowed for the liter- 
al; but enly one of the apostrophes is 
printed or punched (with any subsequent 
characters moved left one position) if the 
literal is to be used as output. 



Numeric Literals 

Numeric literals consist of any one or more 
of the digits zero through 9. One decimal 
point can precede or follow the literal, or 
can be contained within the 
literal; it effects automatic decimal 
alignment during calculations with the 
literal. 

(1^ the literal does not include a decimal 
point, it is treated as an integer.) The 
literal can be preceded by a sign; if it is 
unsigned, it is treated as positive. 
Blanks are not allowed in numeric literals. 
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Numeric literals must net be enclosed in 
apostrophes. 

Numeric literals can enly te specified 
in the calculation specifications. 

Note : If European notation is specified in 
the RPG control card (Card H) , a decimal 
comma is allowed in numeric literals in 
place of a decimal point. 



Control Fields 
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Control level 



The significance level (L1-L9) assigned by 
the programmer to a control field. 



and at total-time; however, certain control 
information available (such as the status 
of indicators — described below) differs, as 
well as the data available in relation to 
the position of the card. 

Another component of the cycle is 
overflow-output time, with any overflow 
output designated T (^or "total") precedina 
any designated D ("detail") . All overflow- 
time output operations are available after 
total-time output. 

Fiqure 6 is a logic flew diagram of the 
RPG object program. Reference to points on 
the chart is made as the relevant subject 
matter is covered. Figure 6 is repeated as 
Figure G3, in appendix G, for convenient 
reference. 

Note: In referring to output operations 
other than total-time or overflow-time out- 
put, both detail (D) and heading (H) output 
are used. There is no distinction between 
D and H in the PPG program--the two cedes 
are interchangeable, and are both available 
merely for the convenience of the user in 
identifying the purposes of different spec- 
ification lines. 



SYMECLS USED IN THIS PDBIICATICN 

Elan k 

For convenience, the symbel ft is occasion- 
ally used to represent a blank eclumn or 
the EBCDIC code for a blank. 

Zero 

-W+rer-e— -e-onfu-s-ien-mig-h-t eth eririse--r es-u-lt- 

between the letter and the numeral zero, 
the latter is either spelled out, or repre- 
sented by 0. 

Column 

The word "eclumn" is frequently abbreviated 
as "col. ". 

FRCGEAM ICGIC FLOW 



Indi ca tor Settings 

Vertical lines in the riqht marqin of 
Fiqure 6 pertain to the possible settinq or 
resetting of indicatcrs at different points 
in the proqram cycle, when the indicators 
are used in a normal manner. (Greater 
detail is supplied in the next section, 
titled Indicators.) The symbols shown in 
the indicator chart in Figure 6 have the 
-£ ollewine- fl-ean-iii-es-: -- — - - 



Indicator is turned off by RPG Program itself 



Indicator is off 



Each object program generated by RPG uses 
the saire general logic, and for each card 
processed the program goes through the same 
general cycle of operations. 

Detail {or_heading) time and t ota l time 

are two major components of this cycle, and 
cccur at different times within the cycle. 
Detail-time calculations are followed by 
detail-time output; total-time calculations 
are fcllcwed by total-time output. Easic- 
ally, there is no distinction between the 
operations that can be performed at detail- 



1 
T 

T 



Indicator may be turned on 

Indicator may be on 

Indicator may be turned off or on 



Blank-After instruction turns on 
indicator assigned to Zero-or-Blank. 
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Figure 6. EPG Proqram Lcgic 
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Special Aspects of R PG Program L ogic 

Although the program logic chart is largely 
self-explanatory, and its entries are 
further explained in pertinent subsequent 
sections of the manual, a few points of 
overall significance to RPG programming are 
emphasized here: 

1. Relationship of Total Time to Card 

Movement: Total-time calculations and 
total-time output occur after a new 
card has been read, and the previous 
card itself has been completely pro- 
cessed. Thus, any output to a card at 
total time is to the new card. How- 
ever, the data available at total time 
is that from the previous card. 
(Figure 6 shows that the data from the 
new card is not transferred to the pro- 
cess area until just before detail 
time.) 

Because output is to the new card, 

a. a stacker-selection specification 
for total-time output causes selec- 
tion of the new card, and 

b. card punching and document-printing 
at total time apply to the new 
card. 

Consequently, although it is known at 
total time whether the previous card 
was the last of a type or group--note 
in Figure 6 that L-Indicators and card- 
type Resulting Indicators for the new 
card have been set before total time — 
it is not possible 

a. to stacker-select the last card of 
tt "type or -e-on-t-r-ei -group, witrh -RP-&; 
or 

b. to document-print the last card of 
a type or control group, with RPG; 
or 

c. to punch the last card of a type or 
control group, with any programming 
language 

on the basis of its being the last card 
of the type or control group. 



The PCU (Punched-Card Utility) pro- 
gram PLACE specification card provides 
a very simple method for selecting the 
last card of a control group. Alterna- 
tively, a Basic Assembler Language sub- 
routine can be used with RPG to select 
the last card of a group (see Program - 
ming Tips , Appendix E) . 



tor) , or it must be in another file 
with its matching fields so coded that 
the card will advance at the appropri- 
ate point in a multiple-file operation. 
(See section on Matching of Files.) 



Multiple- 
One Progr 
operation 
printing 
taken pla 
advances, 
equivalen 
punch or 
fore, all 
card must 
of File N 
Format Sp 
in the pr 
overflow 



Time Output to Cards during 
am Cycle: Once an output 

(punching and/or card- 
and/or stacker selection) has 
ce in a card, the card 

and the next card assumes the 
t position in relation to the 
card-print station. There- 
output instructions for one 
be given under a single entry 
ame and Type (see Output- 
ecifications) , for one point 
ogram cycle (total time or 
time or detail time) . 



One program 
point A at the 
Chart (Figure 
at the bottom; 
time through t 
and through de 
Tt is permissi 
unusual job re 
instructions f 
this cycle, an 
of instruction 
segment, for t 
is done by car 
than one outpu 
put, overflow- 
output) , and/o 
with repeated 
file for the s 
by branching { 
t -et-a-jr— t-i m e ) -r— 
ly understand 



cycle extends from entry 
top of the Program Logic 
6) through exit point A 

i.e., from detail-output 
otal and overflow time 
tail-calculation time, 
ble — if called for by an 
quirement — to give output 
or more than one point in 
d/or by separate groups 
s for the same cycle-time 
he same card file. This 
d-output entries for more 
t time (total-time out- 
time output, detail-time 
r by card output entries 
definitions of the same 
ame output time (and/or 
GOTO) from detail to 
T-h-e-us-er— must -t-h-en -ele-ar- 
the consequences: 
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To punch a card only at the end of 
each group, that card must either be 
identified as a different card type 
(input specifications Resulting Indica- 



The additional cards are not 
read; they are treated as though 
they were only output-file cards, 
even if they are part of a combined 
file; they do not enter the program 
logic cycle. 
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Figure 7 . Multiple-Time Output to Cards During One Program Cycle 
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or example (Figure 7) : Cutput- 
at Specifications fcr all cards 

combined file contain card 
hing instructions for total- 
output, card-printing instruc- 
s for detail-time output, and a 
rate group (separate File Hame 
or Type entry) of entries for 

punching at detail time. For 
rence convenience, term succes- 

cards in the file Ca, Cb, Cc, 
Ce, Cf , Cg, . . . 



carriage-tape channel-12 punch was 
encountered during detail output 
printing from the last detail card 
of a control group. 



esult: Ca is read 

is available fcr 
s card-printed at 
e total-time bypas 
— described in ite 
s not read. It is 
il time. Cc is re 

is available fcr 
s punched at tctal 
read. It is card- 
il time. Ce is no 
unched at detail t 
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etc. 
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il time, 
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Cc, Cd, 



3. Cverflcvi-Time Output: Regardless cf 
whether a carriage-tape channel-12 
punch was sensed during detail-time 
output or total-time output, all output 
operations ccnditicned by en status of 
the overflow indicator (s) (CF, CV) 
occur at overflew time, which fellows 
total-time output. Three points should 
be noted: 

a. Since overflow-time output fellows 
total-time output, all relevant 
totals are normally printed before 
page overflow, ever when a 
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Eecause overflow output occurs at a 
separate time in the cycle, care 
must be taken that data does not 
print more often than desired, when 
a line is specified to print on an 
overflow condition as well as on 
seme other condition (such as a 
control break) — both of which may 
occur in the same cycle, but at 
different times. This can be 
avoided by conditioning the over- 
flow specification line not to 
apply when the condition for the 
other specification line applies in 
the same cycle. (The section on 
Ou tput-Format Specificat ion s illus- 
trates the case, as does the pre- 
ceding Introductory Program 
Example, Figures 5F and 5F.) 
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c. Overflow-time output is primarily 
intended for the printing cf page 
headings en forms overflow; tut 
card output operations are also 
possible — such as card punching, 
card-printing, and stacker selec- 
tion. If any card operations are 
performed at overflew- time output, 
it must be understood that 

(1) output will apply to whatever 
card happens to have been read 
last, and 

(2) the next card may then advance, 
without being read, as 
explained in 2, above. 

Total-Time Processing en "Eur-In": In 
order to prevent undesired totals prior 
to detail processing of the first card, 
total-time calculations and total-time 
output are suppressed until the first 
card has been processed. Thereafter, 
further bypassing of tctal-time calcu- 
lations and total-time cutput depend on 
ether factors: 

a. If ncne or all cf tre card types in 
the cutput specifications have con- 
trol fields (Ccntrcl Level) speci- 
fied, total-time processing is 
available on all cards after the 
first — including the portion of the 
cycle when the IE indicator is on, 
following the last data card of the 
pertinent file. 

b. If enly seme card types have ccn- 
trcl field (s) specified in the 

i nput ^p pnifinatirn g t ±Q±gJji JLJJEfL- 

prccessing is bypassed until after 
the first card cf a type with con- 
trol field(s) specified in the 
input specifications has been 
processed. 

If the first card of the deck is 
cf a type that has ccntrcl field (s) 
specified in the input specifica- 
tions, operation is tantamount to 
a, above. 

If no card cf a type with ccn- 
trcl field (s) specified cccurs in 
the data deck, total-time calcula- 
tions and total-time output are 
typassed for the entire job—includ- 
ing the portion cf the cycle when 
the IF. indicator is en, following 
the last data card of the pertinent 
file. 

Exception: See GOTO, under Calcu- 
lation Specifications . 

Whether tctal-tiire operations are 
bypassed or not is independent cf the 



status of I-indicators--although I- 
indicators are normally also utilized 
to condition operations durina total 
time, when total time is not bypassed. 
(See also Indicators^. L1-L9, 10, IE.) 



Cutput Eefore Eirst Card is Read: As 
indicated by the first two input/output 
flow chart symbols at the top of Figure 
6, detail (or heading) output takes 
place, at the start of the object-pro- 
gram run, before the first data card 
has been read. Therefore, all detail- 
output specifications — other than 
censtant-data heading lines desired 
ahead of regular detail output-^should 
be conditioned by an indicator that is 
net en initially but is on for the 
appropriate cards, or by the neqative 
status of an indicator that is on ini- 
tially but off thereafter. One simple 
method is to condition any initial 
heading lines of constant data by 1P, 
and the regular detail cutput by N1P or 
by card-type Besulting Indicators. 
(See Figure 8, and also the section 
IH J 1 ca t or s x IP . ) 

If the detail output is not condi- 
tioned, spurious printing and/or card 
output (depending on the nature c f 
detail output specified) occurs before 
the first input card has been read. 

Blank-After (B in col. 39 of Output- 
Format Specifications) : Fiqure 6 
correctly indicates that Field Indica- 
tors are set on or off when the new 
input data is transferred to the pro- 
cess area, and that Calculation Result- 
ing TndXclfto rlTl^^ 

calculations. However, an indicator 
assianed to "Zero or Blank" in Input or 
Calculation Specifications (arithmetic 
operations or TESTZ) is on initially, 
and also turned on immediately when an 
output specification is executed for 
which "E" (Blank After) is specified in 
the Output-Format Specifications: as 
scon as the data for an output line 
with B in col. 39 is transferred to the 
output storaoe area, the field is 
blanked (if alphameric) or set to zeros 
(if numeric) and the Zero-or-Blank 
indicator for that field turns on— 
before any further output lines are 
processed. (This does not cause Field 
Indicators or calculation Resultinq 
Indicators assigned to Plus or Minus to 
turn off, if they were on.) 

Fields for output at one point in 
the cycle, under one file-identifica- 
tion entry, are transferred to the out- 
put storage area in the seguence in 
which they appear in the Output-Format 
Specifications, with one exception: 
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Figure 8. Output Before First Card is Bead 



If card punching and document- 
printing are both specified fcr the 
same card, the program transfers 
all pertinent fields to the output 
storage for punching first. There- 
fore, if Blank-After is tc te spec- 
ified, it should be in the 
document-printing specification — 
otherwise the data is lest befcre 
transfer for document-printing. 



The Introductory Prcgra 
(Figure 5) illustrates Bla 
soon as NAME has been tran 
output storage for the fir 
card of a group, the SAME 
blanked and, therefore, it 
longer available (to be pr 
second time or to be punch 
printed) . Indicator 10 al 
immediately, and remains o 
is again read from a Custo 
card. This also explains 
recorded in the Output-Fcr 
catiens after M0YB and ACC 
were entered ahead, indica 
be on before M0YE and ACCT 
printed; they wculd then n 
being conditioned by N10. 



it Example 
nk-Af ter : 
sferred to 
st detail 
field is 
s data is no 
inted a 
ed or card- 
sc turns on 
n until NAME 
mer Name 
why NAME was 
mat Specifi- 
TNC. If it 
tor 10 wculd 
NO are 
ct print, 



As 



7. Branching within RPG: The dotted line 
connecting the boxes representing 
total-time calculaticns and detail-time 
calculations indicates that it is per- 
missible to skip between these points 
in the program cycle by a GCTO opera- 
tion. It is thus possible, for 
example, to iterate the program 
sequence from total-tiroe calculaticns 
to detail-time calculaticns any number 
of times within the same cycle. 



If GOTO is 
time tc total- 
tinent total-t 
put are perfor 
GOTO operation 
wculd ctherwis 
explained in 4 
cessing on "Eu 
however, preve 
subseguent car 
normally be by 



specified from detail- 
time calculations, per- 
ime calculations and out- 
med following each such 
- even when total time 
e be bypassed as 
b, above (Total-Time Pro- 
n-In") . This dees not, 
nt total-time bypass on 
ds on which it would 
passed. 



INDICATOES 

Indicators are assigned — either by the pro- 
grammer or, in some instances, by the EPG 
program itself — to identify conditions. 
They are ^represented in the specifications 
by two-character codes. (Both characters 
must always be recorded, even if the first 
one is the digit zero.) At the point on 
the specifications sheet where an indicator 
is assigned to become associated with a 
condition, it is termed a Resulting Indica- 
tor or a Field Indicator. Those indicators 
assigned by the program itself may also be 
thought of as resulting indicators, since 
they are associated with the occurrence of 
a specific condition or result. 

The status (on or off) of a Resulting 
Indicator or Field Indicator assigned to a 
specification (a line on a specifications 
sheet, or a single specification card) 
reflects the condition resulting from 
execution cr processing of that specifica- 
tion: if the resulting condition satisfies 
the criterion with which the indicator has 
been associated, the indicator turns (cr 
remains) en; if the criterion is not satis- 
fied, the indicator turns (or remains) off. 
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If the same indicator is again assigned to 
a criterion in the same program cycle, its 
states can change again. If, on the ether 
hand, the specification (specifications 
sheet line) with which an indicator is 
associated is not executed cr processed 
under certain conditions (say, certain card 
types) , then the indicator does not change 
its status when these particular conditions 
exist. 

Certain indicators are also set en cr 
off, at particular points in the program 
cycle, by the RPG program itself. (Figure 
6, RPG Program Logic, shows the normal 
relationship of indicators tc periods in 
the program cycle.) In addition, any indi- 
cator may be set en or set off ty a pro- 
grammer's instruction (SETCN or SETOF) 
independently of ether conditions. Its 
status thereafter, however, is egually sub- 
ject to revision by subsequent testing, 
subseguent SETCN or SETOF instruction, or 
automatic settinq by the FPG program. 

Indicators assigned tc Zero-cr-Blank, in 
Input Field Indicators or in Calculation 
Resulting Indicators (arithmetic and TESTZ 
operations) , are on at the beginning of 
program execution and as seen as an output 
Blank-After specification for the field has 
been executed. (Turning en a Field or 
Resulting Indicator — assigned to Zero-cr- 
Elank--by Elank-After, dees not cause indi- 
cators assigned to Plus cr Minus tc turn 
off if they were en.) 

Internally in the central processing 
unit, the "off" cr "reset" condition of an 
indicator is represented by hexadecimal 

code Q„0 ; J 1 on ."_,..... by_ he.xa decimal F 0..... (.See 

Appendix E for discussion of hexadecimal 
code.) 

Different indicators may be assigned to 
any two, cr to all three, of the possible 
resulting or field conditions for cne spec- 
ification line; or, the same indicator may 
be assigned to more than cne condition in 
one specification line. In the latter 
case, the indicator turns en if any one of 
the conditions to which it is assigned has 
occurred. 

The ON cr NOT ON status of indicators 
can be used to condition the execution of 
instructions in specifications statements; 
i.e., performance of an operation can be 
stipulated to be contingent upon the status 
of particular indicators. An indicator 
used in this manner is referred to as a 
"Conditioning Indicator." The two-charac- 
ter indicator code is recorded in the two 
right-hand columns of a three-column (con- 
ditioning) Indicators field to condition 
execution of the instruction on that line 
upen CN status of the indicator. If the 
indicator cede is prefixed by the letter N 



(in the leftmost position of the three- 
column Indicators field) , the instruction 
is executed only if the indicator is OFF. 
It is possible to condition the execution 
of an instruction ty a combination of the 
status of several^ indicators (termed an AND 
relationship) , or by the acceptable status 
of cne of several indicators (termed an OR 
relationship) . 

The same indicator may be assigned as 
both conditioning and resulting indicator 
in the same calculation specification line ; 
its status then does not change until after 
execution of the instructions in that line, 
and provided the specifications in the line 
are executed. 

The available indicators are itemized 
below, together with detailed information 
required for their use. Concurrent 
reference to Figure 6 is assumed. Immedi- 
ately after the itemized discussion of all 
indicators, a brief section explains the 
priority of indicator settings when the 
setting of an indicator is controlled in a 
non-standard fashion. Further specifics, 
including limitations, are stated in the 
specifications sheets sections to which 
they apply. 

Note: A particular indicator can have dif- 
ferent assignments; i.e., it can be a card- 
type Resulting Indicator, Field Indicator, 
calculation Resulting Indicator, etc. --but 
it is always the same indicator. These 
different available assignments merely 
determine the conditions under which, and 
the points in the program cycle at which, 
the indicator setting occurs. Figure 11 
..XXnd.icatpr. _H4erj.rch.y_)_ summarizes the 
priority of indicator settings, and shows 
the status of each indicator at the begin- 
ning of program execution. 



THE SPECIFIC INDICATORS 

01-99 (General Indicat or s) 

Normal uses: Identification of card types, 
of status of input fields, of results of 
calculations and comparisons; conditioning 
of calculations and output based on status 
of these indicators; determination of 
search in a table leck-up cperation. 

Any of these ninety-nine numbers may be 
assigned by the programmer to be associated 
with the occurrence of a specific condi- 
tion. When the criterion has been satis- 
fied, the indicator turns en. It remains 
en until a criterion for that indicator has 
been tested again, and not satisfied. 

These indicators are off at the begin- 
nina of object-program execution (unless 
assigned to Zero-or-Elank) . 
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Four examples (Figures 9A and E) : 

1. Indicator 10 is assigned as Resulting 
Indicator, for a Minus result, on one 
line of the calculation specifications. 
Execution cf that line itself is net 
cenditicned. 



Effect: Indicator 
the instruction of tha 
executed the first tim 
was negative. (It rem 
result was not negativ 
remains on (or off) un 
The same test is perfc 
point en every card, i 
turned (or left) on or 
point in the cycle, de 



10 turns on after 
t line has been 
e, if the result 
ains off if the 
e.) It then 
til tested next, 
rmed at that 
ndicatcr 10 teing 

off at that 
pending en wheth- 



er the result of that calculation is 
negative or not negative. 



2. As (1), above, tut the calculation spec- 
ifications line on which indicator 10 
is set, itself is conditioned to he 
executed only during detail processing 
cf a card type with indicator 01. 

Effect: Indicator 10 turns on after 
the instruction on that line (the third 
line) has been executed the first time, 
if the result was negative. (It 

"rema-inc: /-i-F-F -i-F -*- Vi o -r- /-> e- n 1 +■ it<%,~ ^ ,-> 4- t, « -r -, - 

-■- w " , "- t " — v/j-j- J.J- (_ n-_ j_^;^uj.u FIU.O UUL liC^JCL - 

tive.) However, the instruction on 
that line is only executed if the card 
being processed is indicator 01 type. 
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3. 



U. 



Therefore, once on (or off) , indica- 
tor 10 remains on (or cff) until that 
specification line instruction is 
encountered again while detail- 
processing a type 01 card. 

The eguivalent situation applies if 
a Field Indicator is assigned .to Plus 
or Minus on the Input Specifications, 
and that field dees not apply to all 
card types. The indicator then remains 
en (or off) , until the field is tested 
again when the appropriate card type 
recurs. 

As (1), above, but indicator 10 is 
assigned to two lines (say, lines 5 and 
7) in the Calculation Specifications as 
Resulting Indicator. Execution of 
neither line itself is conditioned. 

Effect: Indicator 10 turns on after 
the instruction en line five has been 
executed the first time, if the result 
was negative. (It remains off if the 
result was not negative.) It is then 
en (or off) through the execution of 
the instruction on the seventh line. 
Its status thereafter, until the line- 
five instruction has been executed en 
the next card, is tased en the result 
from line seven. 

Indicator 10 is assigned as field Indi- 
cator tc a negative condition for field 
1 and field 3 of every input card, and 
for a negative result en the ninth line 
of the calculation specifications 
(whose execution is net itself 
conditioned) . 



Effect: Indicator 10 turns en prior 
to the detail calculations for a card, 
provided field 3 is negative— ri.e . , the 
fields are tested in the order in which 
they are written on the Input Specifi- 
cations sheet. Therefore, the status 
of field 1 is ignored for indicator 10. 

Indicator 10 retains its status as 
determined by field 3 until completion 
of the instruction on line nine cf the 
Calculation Specifications sheet. The 
result there determines its statts 
until the beginning cf detail calcula- 
tions for the next card, when field 3 
of that card determines the status cf 
indicator 10. 



Note: If any indicator 01-99 is set en or 
off by the special operaticn cede SETCN or 
SETOF, it remains in that status until 
again SETCN or SETOF, or until after execu- 
tion of a specification line where the 
indicator is a Resulting or Field Indica- 
tor, whichever occurs first. In the latter 
case, the resulting conditicn determines 
the status of the Indicator. 



JJx_H2_l^HaltJ.'l 

Principal purposes: To cause a proaram 
halt after an unacceptable conditicn has 
occurred, and/or to bypass calculations 
and/or output on erroneous conditions. 



These two indicators operat 
cators 01-99, with this differ 
or H2 has been turned on (as a 
Field Indicator, or by the ins 
SETON) , and has not been turne 
during the same program cycle 
as a Resulting or Field Indica 
tested condition that was not 
the system will halt after com 
the next detail-time output op 
(The halt actually occurs just 
next card has been read.) 



e like indi- 
ence: If H1 

Resulting or 
truction 
d off aaain 
(by SETOF, or 
tor for a 
satisfied) , 
pletion of 
erations. 

after the 



The system can be restarted, and the job 
continued, at the operator's option, simply 
by pressing the START key on the CPU con- 
sole twice (i.e., the halt is "non- 
abortive") — see the FPG Operating Proce- 
dures manual — halts EOF, EF0, EFF. If the 
system is thus restarted, the H1 and H2 
indicators are set off by the proaram imme- 
diately upon restart. 

These indicators are off at the begin- 
nina of object-program execution. 



Note: 

1. If H1 or H2 is to cause a halt when any 
of several conditions exist, care must 
be taken not to turn the indicator off 
aqain ty a later test which was net 
satisfied, if an earlier' test turned it 
on. 

For example, if H1 is tc be on when 
the result from the first and/or third 
line in the calculation specifications 
is negative, the test for the third 
line must be suppressed whenever the 
first line yielded a negative result. 
Otherwise, although the first-line 
result may have been negative, a non- 
negative third-line result will turn H1 
off again before the system halt has 
occurred. (Figure 10 illustrates how 
to handle this problem.) 

This warninq also applies if the 
same indicator is assigned to several 
fields, as Field Indicator on input 
specifications, since the fields are 
examined in the seguence in which they 
are written. 

Of course, this fact can be used to 
advantage deliberately to turn off HI 
or H2 if a subsequent field or calcula- 
tion meets a desired criterion. 
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Fiaure 10. B1 Indicator On if Either cr Both of Two Conditions Exist 



z. 



Indicator H1 or H2 assigned to Zero-or- 
Elank is off at the beginning cf pro- 
gram execution (see In dicator, Hierarj 
chy) ; but it will be turned on by a 
Blank-After output specification, like 
any ether indicator. A system halt 
then cccurs at the end of processing 
for that card. 



JP_i"lst_Fage^l 

Primary purpose: To condition fixed-data 
(constants) output to occur preceding the 
processina of the first card. It is norm- 
ally used for report headings. 

This indicator is set by the program 
itself. It is en prior to the processing 
of the first card, and turns off after 
detail-output time preceding the prccessini 
of the first card (see Figure 6) . Figure 
8, line 01 illustrates a cemmon use cf 1P. 



The 1P indicator may also be assigned as 
a Resulting Indicator or Field Indicator, 
and SETCN or SET0F, like indicators C 1-99 . 
Besides being on prior tc processing of the 
first card, it will then operate like indi- 
cators 1-99 — except that 1P always turns 
off after detail-time cutput operations, 
and does not turn en again unless SET0N or 
used as Resulting or Field Indicator. 



M-im .§t chin5_Eecord_^}_ 

Primary purpose: To identify cards in a 
file that match those in another file en 
control data, and to condition calculations 
and output based on the status cf MR. 

MR turns on when a primary-file card 
matches a secondary- or tertiary-file 
card, on the contents cf a designated 
field or fields. If several fields are 



designated for matching, all of them 
must match. (See also section below 
titled Matching of Card Files. ) 

When the indicator turns on as a result 
of the matching of a primary- and a 
secondary- or tertiary-file card, or turns 
off as the result of a non-match, this 
occurs after overflow-output time (see 
Figure 6) . The MR indicator is then en cr 
off for complete cycles, beginning before 
detail-calculation time and through the 
next total and overflow-output time. If 
all primary-file cards match secondary-file 
(and tertiary-file, if present) cards on 
the designated field (s) , and vice versa, 
the MR indicator remains on through the end 
of the job. 

If card types for which no matching 
fields are designated intervene, they are 
treated--for purposes of feeding and 
processing — as belonging tc the same 
matching-f ield (s) group as the preceding 
card in the same file; but the MR indicator 
is off for their processing cycle. How- 
ever, the contents cf the f ield (s) desig- 
nated fcr matching are stored from the last 
preceding card for which matching was spe- 
cified. Thus, when the next card for which 
matching fields are designated is pro- 
cessed, its matching-f ields contents are 
first compared with those of the last pre- 
ceding card fcr which matching fields were 
specified. The MR indicator therefore is 
on for the processing cf all cards whose 
designated fields match, even if cards that 
are net to be matched occurred in the mid- 
dle of a matching group. 



The MR indicator may also be used as 
Resulting or Field Indicator, or SET0N or 
SETOF, like indicators 01-99. It is, how- 
ever, always turned en before detail-time 
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processing of a card that satisfies the 
criteria, above, for matching records; it 
always turns off before detail processing 
of a card that does not meet these 
criteria--as though its status had never 
teen subjected tc any ether criteria. When 
only a single input (or combined) file is 
being processed, ME is always turned off by 
the program before detail time. 



The ME indicator is completely indepen- 
dent of any ccntrcl levels (Ll-L9--see 
below) that may be specified for control- 
group totals or group indication. It is 
common, but by no means necessary, that the 
matching fields are the same as the total- 
level control fields. 

OLt_ C V_J C v e r fl o w)_ 

Primary purpose: To ccntrcl the printing 
of identifying data en overflew pages. 

Indicator OF refers to the standard 
paper-tape-ccntrolled carriage, or the 
lower-feed carriage if the Dual-Feed Car- 
riage special feature is installed en the 
IEM 22C3 Printer. CV applies tc the upper- 
feed carriage of the Dual-Feed Carriage 
feature. 

The appropriate indicator ( CF or CV) 
turns on if a line was printed after a 
punch in carriage- tape channel 12 for the 
relevant carriage was encountered during 
output. It -turns en after all detail-time 
output for a program cycle has been com- 
pleted, if the channel-12 punch was encoun- 
tered during detail output; it turns en 
after all total-time output for a program 
ey-e-l-e- -ka~s- be-e-n ce m p 1 e t cd ■ y - -if: - -t-h-e— c h a nn e 1^42- 
punch was encountered during detail or 
total output. Regardless cf whether the OF 
(or OV) indicator was turned on as a result 
of detail or total output, it remains en 
until ccnclusicn of the next detail output 
time (see Figure 6) . It then turns off, 
unless a channel-12 punch was again enccun- 
tered during that detail-output time. 
Therefore, if calculations are tc be condi- 
tioned by the status cf the CF or OV 
indicator--and a channel-12 punch could be 
encountered during either detail or total 
output — these calculations should be per- 
formed at detail-calculation time. (See 
also Overflew Indicators - OF, OV, and 
Spa ce, Skip, under Output-Fcrmat 
Spec ifications) . 

If CF (or OV) is used as a conditioning 
indicator in a f ile-identif icaticn output- 
specification line, it thereby designates 
that that output is to be performed at 
Overflow Time of the program cycle. This 
applies regardless cf whether the specifi- 
cation line containing OF cr OV is indepen- 
dent, is in an OB relationship with the 
line above cr below, or is ir an AND rela- 



tionship with a ccntiqucus line; however, 
it dees not apply tc NCF or NOV. 

If the CF or CV indicator is specified 
as a cenditicninq indicator in any file- 
identification output-specification line, 
no forms skipping ever takes place for that 
file (standard or upper carriage, respec- 
tively) without an Cutput-Format forms-skip 
specification; otherwise, forms advance to 
channel 1 is automatic for the respective 
file (standard or upper carriace) after 
total-output time if the CF or OV indicator 
is then on. (Note that this refers only to 
OF or OV - not NOF or NOV.) 



Note : I f 
is passed 
er point c 
nel 1 (e.g 
total cutp 
the paqe) , 
turned on 
past the c 
indicator 
result of 
punch to a 
in channel 
channel- 1 
conclusion 



a channel-12 
while forms 
n the page t 
. , skipping 
ut above the 

the OF or 
as a result 
hannel-12 pu 
will, howeve 
forms skippi 
ny channel p 

1, unless t 
punch; it th 

of the next 



carriage-tape punch 
skipping from a high- 
c carriage tape chan- 
to a new page after 

overflew point of 
V indicator is not 
of having skipped 
nch. The OF or OV 
r, be turned on as a 
ng past a channel-12 
unch other than that 
his is past a 
en remains on until 

detail output time. 



The OF and OV indicators may also be 
used as Resulting or Field -Indicators, or 
SETON or SFTOF, like indicators 01-99. The 
indicator setting resulting from such tech- 
nigue will, however, be superseded at the 
end of detail-time output and at the end of 
total-time output of each program cycle by 
the status that the indicator would assume 
if it were used only in its normal 

--12--si.£Ln-aJ4-.-.ma nn.ex.^ - ...._ 



klzt9_iCcntrol_Levelsl 

Principal purposes: To recognize control 
breaks, produce totals at the desired 
levels, and permit aroup-indication or 
group printing. 

However, these indicators can function 
in several ways, and are not limited to 
contrcl-group identification: 

1. If entered in the "Control level" 

columns (cols. 59-60) next to a field 
name in the input specifications, such 
a field is thereby desiqnated a control 
field of that level. 

This has the following effects: 
Whenever the contents of the designated 
control field of a pertinent card do 
not match the contents of the 
equivalent (same control level) field 
cf the last precedinq card with such 
control level designated, the specified 
I-indicator turns en— as well as all 
L-indicatcrs of lower levels. 
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The L-indicators turn on prior to 
the tctal-calculaticns time that 
precedes detail processing of the new 
card (see Figure 6) ; they turn off 
after detail-output tiire of the rev 
card. 



5. 



the particular instruction is to te 
executed at detail time. 

Any L-indicator may te used as a ccndi- 
ticnina indicator, like other 
indicators : 



If card types without the relevant 
ccntrcl level designated intervene, 
they are treated as belonging to the 
same ccntrcl group as the preceding 
card, and the L-indicatcr dees net turn 
en. If the next card with such control 
level designated then contains the same 
ccntrcl information as the last preced- 
ing card with that control level speci- 
fied, the new card does not set the 
I-indicator on. (See figure 133.) 



Note: See De finitic n of Terms (in Gen- 
eral Information section) and Ccntrcl 
Level (Input Specifications, eels. 59- 
60) for the relation cf blanks, zeros, 
zone punches alone, and ± sign punches, 
to control fields. 

2. Indicators L1-L9 alsc turn on when the 
LR indicator (described below) turns 
en, following the last data card. 

3. The L1-L9 indicators may alsc be used 
as Resulting and Field indicators, or 
they may be SFTON or S5TOI. If an I- 
indicator is turned en or off in this 
manner, lower-level l-indicators do not 
automatically turn en or off also 

(e.g., L2 could be on and L1 off). 

If l-indicators are used in this 
fashion in the same program in which 
L-indicators are alsc assigned for Con- 
trol Levels in input specifications/ 
the Resulting or Field Indicator set- 
ting will supersede any prior control- 
break L-indicator states. The exact 
time relationship in the program cycle 
is apparent in Figure 6. 

In any event, L1-L9 are turned eff 
after conclusion cf detail-output time. 

U. When any L-indicator is specified in 
the "Ccntrcl Level" field (eels. 7-8) 
of a calculation specification, it 
thereby designates that the particular 
instruction is to be executed during 
total-time calculaticns--and simul- 
taneously conditions it to be executed 
only if that particular L-indicator is 
on at that time; i.e., it normally 
serves there to confine calculations to 
total time after the end of a control 
group cf that or higher level. (It 
should then alsc be considered in an 
AND relationship to indicators in cols. 
9-17.) When Ccntrcl Level (cols. 7-8) 
of calculation specificatiens is blank, 



a. If any of the indicators L1-L9 
(employed in the normal manner) 

appears in Indicators (cols. 9-17) 
cf calculaticn specif icaticns--and 
Control Level (cols. 7-8) is 
blank--the specifications are 
executed at detail time during the 
processing of the first card of a 
control group of that or higher 
level. 

b. If any of the indicators L1-L9 
(employed in the normal manner) 
appears in Output Indicators, the 
output is performed only if a con- 
trol break cf that or hiqher level 
has occurred. 

(i) If the indicator is associated 
with total-time output (T in 
col. 15 and no OF or OV in Out- 
put Indicators of the file- 
identification line) , the cut- 
put occurs only at total time 
after processing of the last 
card of the ccntrcl group. 

(ii) If the indicator is associated 
with detail-time output (D or H 
in col. 15 and no OF or OV in 
Output Indicators of the file- 
identification line), the out- 
put occurs only at detail time 
during processing of the first 
card of the ccntrol group — 
i.e., group indication is 
performed. 

(iii) If 01 (or OV) is specified in 
Output Indicators of the file- 
identification line, the output 
is performed at overflow-output 
time (if OF or OV is on) , but 
only if the overflow occurred 
at the end of the control 
group. 

Special considerations for Indicators L1-L9 
on "Pun-In" 

At the start of the job run, the core 
storage areas for all control fields con- 
tain zeros (hexadecimal FC — see EECDIC 
table, Figure E1, Appendix D) . The 
contrcl-f ield contents of the first card 
with control level (s) specified in the 
input specifications are, therefore, com- 
pared with zeros. Furthermore, as pre- 
viously stated, no control-break test is 
made when processing a card type for which 
Control Levels are net specified in the 
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input specifications. Therefore, I- 
indicators (when used in the normal manner, 
to signal control breaks) operate as fel- 
lows, at the beginning of object-program 
execution : 



LP (I Zero) (Univ er sal Total) 

Primary purpose: To facilitate calcula- 
tions at Total Time even though no control 
break has occurred. 



a. None of the indicators L1-L9 is on 
while processing a card type for which 
Control Levels are net designated in 
the Input Specifications. 

b. The first card for which control levels 
are designated in the Input Specifica- 
tions is tested: the card contents of 
the designated control field (s) are 
compared with zeros. If the card field 
contents are unegual to zero, the L- 
indicator of the level specified for 
that field — and for all lower I-levels 
— turns en. It remains en (unless set 
off by one of the methods described 
under 3, above) until completion of 
detail-time output for that card, when 
the I1-L9 indicators are set off by the 
program. (The L-indicatcrs are thus 
available on the first card--if control 
field contents were unegual to zero — to 
control detail-time group-indication 
operations.) 



Note: As pointed cut under Definition of 
Terms, designation of a field as numeric 
(ccl. 52 of input specifications) causes 
conversion of Hanks to zeros, and strip- 
ping of zones except in the lew-crder posi- 
tion. Furthermore, a lew-crder- position 
zone is also omitted from numeric data when 
it is stored in a separate location for 
control-level data. Therefore, nuireric 
control f ie lds containing only blank s^ _ and 
/or zeros, and/or zone punches, in the 
first card with control fields, will result 
in an "egual" comparison with zeros, and 
will not set L-indicators on. 

On the other hand, blanks, zones, and 
zeros are distinguished for alphameric 
fields. Therefore, while zeros in alphamer- 
ic control fields (of the first card with 
control fields specified) also will net set 
the relevant L-indicator (s) en, blanks and 
zones in an alphameric field will, because 
they are unegual to the zercs contained 
initially in the control-field cere storage 
areas. 

See Programming Tips, Appendix E, for a 
technigue that assures group indication for 
the first card even if the control fields 
contain only zercs. 

The setting and status of L-indicatcrs 
are independent of whether cr net total- 
time processing is bypassed (see section 
titled Progr am Logic) . Indicators 11-19 
are off at the beginning of cb ject-prcaram 
execution. 



This indicator is on at the start of 
program execution and is never turned off 
by the RPG program itself. It is consi- 
dered a total-level indicator (like L1-L9), 
because its entry in the Control Level 
field (cols. 7-8) of a calculation speci- 
fication designates that calculation speci- 
fication to be executed during total-time 
calculations (and provided LO is on) . This 
facilitates designating the execution of a 
calculation specification for total time, 
even though no control break--to set any of 
the L1-L9 indicators--may have occurred. 

For example: Calculations during total- 
time processing of an unmatched card (say, 
a blank trailer card) if the preceding card 
was a matched record — note that, at total 
time, the MR indicator still reflects the 
matching-f ields status of the preceding 
card . 

Numerous other examples appear through- 
out the manual, particularly among Pr ogr am- 
ming Tips (Appendix E) . Notably, LO makes 
it possible — without a control break — to 
perform calculations after processing a 
card when data, MR, and Field Indicator 
settings from that card are still available 
while the card-type Resulting Indicator for 
the next card is already on. 



The 10 indicator may also be used as 
calculation Resulting Indicator, or SETOF 

or s .£1Q.Hi_ t n t i±._.jaju.si....LQ±_.i£- as.sig.nssL.-a.s-... 

card-type Resulting Indicator or as Field 
Indicator. Two points must be borne in 
mind : 



1. The LO indicator is en initially, until 
turned off by the result of a program- 
mer's specification; and 

2. If LO is thus turned eff, it is turned 
en again by the RPG Program after a new 
card has been read (see Figure 6 — same 
pcint in the cycle where other L- 
indicators are turned off) . 

IP, (last Re cord) 

Primary purpose: To provide for processing 
final totals at end of job, and to termin- 
ate job. 

This indicator turns on, before total- 
time calculations,- following the processing 
of the last data card of an input (or com- 
bined) file. When a multi-file proqram is 
being executed, entries in the File 
Description Specifications designate which 
file (s) must be completed before a last 
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Record condition exists (i.e., before IR 
turns en) . (Actually, it is the first End- 
of-File--/* — card in the pertinent file (s) 
that causes IE to turn on.) 

When IE turns on as the result of the 
last record condition, indicators L1-L9 
also turn on. 

The LB indicator may also be used as 
Resulting and Field Indicator, or SE T CN or 
SETOF. Indicators L1-L9 dc not, then, also 
turn on or off automatically. 



the indicator will not be set on or off by 
the RPG Program at a point in the cycle not 
desired by the user. The hierarchy order 
in Figure 11 indicates the priority 
sequence applied by the EPG Program in set- 
ting indicators. 



Examples: 

1. ME is used only as card-type Resulting 
Indicator in Input Specifications. 
Only a single input file exists. (See 
Figure 12A, lines 01 and 13.) 



x- -P -P ^ ^ -1- . 



level indicator (like L1-L9) , because its 
entry in the Control Level field of a cal- 
culation specification designates that cal- 
culation specification tc be executed enly 
during total-time calculations (and pro- 
vided LR is on) . 

If LR is en at the conclusion of total- 
time output, the program terminates after 
total-time output. It cannot be restarted. 
When LR is used in the normal manner — tc 
recognize the end of the appropriate data 
file(s)--it can be utilized enly to condi- 
tion total-time operations; no further 
overflow-time or detail-time operations 
will occur. If the LR indicator is on at 
the conclusion of detail time (i.e., it was 
turned en by ether than the last-record 
condition) , it is turned off right after 
that point by the RPG Program. 



In the rare situation — described in the 
section Progra m Logi c, Totals-Time Proces- 
sing on "Run-in" — where only seme card 
types have control field (s) specified in 
the input specifications, and no cards of 
these types ever occur throughout the job, 
total-time processing will be bypassed 
throughout the job. Therefore, even though 
the LR indicator will turn en before total- 
time processing, it cannot be utilized 
since no total-time processing will take 
place. The program will terminate as soon 
as LR has turned en. 



INDICATOR HIERARCHY 

The program classifies indicators in four 
priority groups. This is of concern tc the 
user only when he chooses tc employ an 

-ini^-ir"^ + OT* "in a npn- c+3n^prfl -fa cli -I r\n 

Any indicator may be designated as a 
resulting cr field indicatcr, and used as a 
conditioning indicator, in any specifica- 
tions fields provided for such entries 
(except that Control-Level fields are 
limited tc L-indicators, and seme restric- 
tions aprly to LQi * However, for unconven- 
tional application of an indicatcr. Figure 
11 may have to be consulted — in addition to 
Figure 6 (Program Logic) — to assure that 



a. MR turns on before total-time cal- 
culations, if the card read was of 
the type tc which MR is assigned. 
MR is turned off by the RPG Program 
itself before the input data is 
moved to the process area, preced- 
ing Detail-Time calculations for 
the card . 

b. Note that, if the MP indicator is 
used as a card-type Resulting Indi- 
catcr in an CR relationship, the 
wrong input fields may be moved to 
the process area: ME has been 
turned off by the RPG Program 
itself before it can serve to 
implement Field-Record Relation. 

If MR is also set en durinq detail- 
time calculations, it remains on 
through total-time calculations of the 
next cycle — even if the new card is not 
the type to which MR is assigned as 
card-type Resulting Indicator. 

Reason : The MR indicator belongs to a 
higher group (hierarchy group 1) than 
card-type Resulting Indicators (group 



2. As (1) , above, but MR is also used in 
the normal manner; i.e., the program is 
multifile with matching fields. (See 
Figure 12A, lines 03-13.) 



Effect: As (1), above; 
turned off or on (cr re 
detail-time calculation 
the result of matchinq 
control fields between 
may be turned on also b 
this example, it could 
total-time calculations 
if the preceding record 
between the files. On 
it could be on--as a re 
records — and thus imple 
Field-Record Relation, . 
fields are transferred 
area. 



but MR is 
mains on) before 
s, depending en 
the contents of 
files. Since MR 
y card type in 

V a r^r\ rl n r i r rr 

and output even 
s did not match 
the other hand, 
suit of matchinq 
ment the wrong 
when input 
to the process 



Since MR may be on, in this method 
of use, as both a card-type Resulting 
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STATUS AT 
BEGINNING 
OF OBJECT- 
PEOGEAM 
EXECUTION 



OFF 



OFF 
OFF 



ON 

OFF 

ON 
OFF 

OFF 

OFF 
CN 



OFF 



INDICATCB 



ME 



OF \ 
OV / 



1P 

H1,H2 

10 
L1-I9 

LE 



CAEC-Type 
EESULTING 
Indicators 

ZEBO-or-ELANK 
Field and Calcu- 
lation Eesulting 
Indicators 



ALt OTHEES 



HIEEAECHY 
lEVEt 
(1=highest) 






SET ON CE OFF BY EPG FECGEAM ITSELF: 
CEITEBTA, and TIME IN TEE PECGEAM CYCLE 



Set after overf low-cutput time: If multi- 
file program, and Matching Fields match - 
set ON; all other situations - set OFF. 

Set ON after total-time output if printing 
occurred at or below carriage tape channel- 
12 punch during total-time output; set CN 
after detail-time output and after total- 
time output if printing occurred at or 
below channel-12 punch during detail-time 
output. Set OFF after detail-time output 
if no channel-12 punch encountered durinq 
detail-time output. 

Set OFF each time a data card has been 
read. Never set ON again by the EPG Pro- 

_gram itself. 

Set OFF upon system restart following the 
Halt after a new card has been read. Never 
set ON by the EPG Program itself. 
Set ON each time a data card has been read. 
Never set OFF by the EPG Program itself. 
Set OFF each time a data card has been 
read. Set ON by the EPG Program itself 
only when a higher L-indicatcr or LE turns 

_0N in normal use. 

"Set ON before total time following last 
data card of appropriate file(s). If set 
ON by programmer during detail-time calcu- 
lations, will be set CFE by the EPG Program 

_itself after next card has been read. 

"Set OFF each time a data card has been 
read. Never set CN by the EFG Program 

JL.tse_lf.___ _ 

Set ON or OFF based en contents of Input 
Specifications field (if Field Indicator) , 
or Calculation Specifications Eesult Field 
(if Eesulting Indicator) when tested. Also 
set ON by BLANK-AFTEE specification on out- 
put. Never set OFF, or CN again, by EFG 
Program itself. 

Set ON or OFF based en contents of field 
when tested. Never set ON or OFF by EPG 
Program itself. 



u 



Figure 11. Hierarchy and Summary of Indicators 



Indicator and for matching records, two 
card-type indicators cculd be en, fcr 
part cf the cycle, during processing of 
one card . 

3. Indicator 10 is used as card-type 
Eesulting Indicator for a card type 
(say, CUSTMAST) . It is also assigned 
as Zero-or-Blank indicator tc an input 
field (say, GEOSS) in ancther card type 



(say, TCTPUECH) , and as Zero-or-Elank 
resulting indicator in a d*etail-time 
calculation (say, line 01) of TOTPUECH 
cards. (See Figure 12E.) 

Effects: Indicator 10 is always set on 
or of f--depending on the card type (on 
for CUSTMAST, off for others) — before 
tctal-time calculaticns, regardless of 
prior settings by its other uses. 
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Figure 12A. Hierarchy of Indicators - Illustration of Examples 1 and 2 



When T0TPDSCH card is read, indica- 
tor 10 turns on when input data is 
transferred to the process area, if 
GEOSS field is zero or blank; its sta- 
tus is again determined by the result 
cf line 01 of the detail-time calcula- 
tions of TOTPUECH card. If the next 
card read is not CUSTMAST, indicator 10 
is set off before total time of the nen 
card . 

R eascn; Card-type Resulting Indicators 
take precedence ever Zero-or-Blank 
Indicators — hierarchy grcup 2 versus 
group 3. Therefore, Indicator 10 is 
turned eff before total time if the 
card just read is not CCSTMAST type. 
It is turned en by blank or zerc in 
GEOSS field of TOTPURCH card before 
detail time, when input fields are 
transferred to the process area — 
because this occurs later than the 



resetting of card-type resulting 
indicators. 

Thus, it is possible for more than 
one card-type indicatcr to be en at the 
same time, for part of the cycle — e.g., 
the card-type indicator assigned to 
TOTPURCH type plus indicator 10, serv- 
ing to identify CUSTMAST card type but 
possibly turned on by GROSS field of 
TCTPDECH card. 



Note: Initially, indicatcr 10 is off, 
because card-type Resulting Indicators take 
precedence over Zero-or-Blank in Field 
Indicators and calculation Resulting Indi- 
cators. However, a Blank-After output 
instruction for the field GROSS or NETSLS 
will turn it on; it is then turned off 
again before total time of a card of type 
12. 
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Figure 1 2E - Hierarchy of Indicators - Illustration of Example 3 



MTCHING_CF_CAED_FILES 1L _AKr_SE£UENCE 

QEZQ&MG-- - - 

A primary file can be matched against cne 
cr two other files, defined as secondary 
and tertiary file, respectively. A secon- 
dary file cannot be matched against a ter- 
tiary file. 

In crder for a file to be matched 
against another, its name must be entered 
in the Input Specifications; i.e., it must 
be either an input file cr a combined file 
(see Def ini tic n of Terms) . The crder in 
which input cr combined files are entered 
in the Input Specifications determines 
their relative priority: the first file 
defined thereby becomes the primary file; a 
next file entered becomes the secondary 
file; and if a third file is defined in the 
Input Specifications, it is thereby desig- 
nated the tertiary file. 

The criteria for matching of files are 
the contents of cne, twc, cr three card 
fields, defined as Matching Fields (P1, M2, 
and M3)--see Input Specifications. The 
number of Hatching Fields (cne, two, or 
three) used must be the saire fcr all files, 



and fcr all card types for which matching 
is sp-ecif ie^dv — earth -columns of -di^Tere nt 
Hatching Fields in the same card can over- 
lap; hut the total length of all Matching 
Fields fcr one file (each M 1, M2 and M3 
counted once) must not exceed 144 charac- 
ters. (Note, however, that - even for 
overlapped fields - the program stores the 
data from the different levels of Matching 
Fields contiguously, without overlapping.) 
The length of a Matching Field (M1, M2, or 
M3) must be the same throughout (i.e., in 
all records to be matched) . Matching 
Fields may be defined as alphameric or nu- 
meric (all zones stripped) , and this desig- 
nation need not be uniform fcr the several 
specifications entries of one Matching 
Fields level (i.e., it may differ between 
files and card types, provided the field 
name differs) . However, if any Matching 
Field is defined as numeric for one card 
type, all Matching Fields of that level 
(M1, M2, or M3) in all card types are 
treated as numeric for the Matching Fields 
operation--i.e. , all zones are ignored in 
the match, and blanks are converted to 
zeros. 
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Note: Contents of fields to be matched are 
stored separately for the Matching Fields 
operation. This is independent of storage 
of the data for ether purposes (calcula- 
tions, output, etc.) . 

When more than one input (or combined) 
file is specified, matching of the primary 
file to the other input (cr combined) 
f ile (s) is mandatory; i.e., at least cne 
Hatching Field is then required fcr each 
such file. At least one card type in each 
input (or combined) file must hai/e Matching 
Field (s) specified. 

Whenever Matching Fields are specified, 
sequence c he cking on the Matching Field (s), 
of all card types being matched, is auto- 
matic. The files being matched are treated 
as a single seguential file. The sequence 
may be specified as ascending (A) cr 
descending (D) , but must be the same fcr 
all files being matched. The sequence is 
checked according to EECDIC (see Appendix 
E, Figure D1) ; but any other sequence can 
te substituted by a translation tatle (see 
Appendix D). It is not possible, if there 
is more than one input (or combined) file, 
for the files to be in random sequence, 
even if the cards in all files are in the 
same order and would match en the Matching 
Field (s) . An error in the card sequence 
stops the program. The program can be 
restarted — see IBM System/ 360 M odel 2C, 
Report Prcqram Generator fcr Punched-Card 
Equi pment, O perat ing Procedures (Form C2 6- 
3800) . Cnly an error in the direction of 
the sequence is detected: a step en dupli- 
cates is net part of the Matching Fields 
operation (it can, however, te accomplished 
by calculation specifications) . 

The sequence in which cards frcm mul- 
tiple files are processed resembles a stan- 
dard IBM Collator match cr merge operation, 
except that there can be three files (if 
the I/O devices required therefcr are part 
of the system) : 

Whenever cards in the primary file 
match cards in the secondary and/cr 
tertiary file, all matched primary-file 
cards are processed, followed by all 
matched secondaries (if any) , followed 
by all matched tertiaries (if any) . 

Whenever cards do net match, these 
with Matching field (s) ccntents earli- 
est in the sequence are processed 
first. When the Matching Field (s) 
value (s) in the secondary- and 
tertiary-file cards are equal, the 
secondary-file cards are processed 
first. 

A card type for which no Matching Field 
is specified is processed immediately after 



the card it fellows in the file, like a 
trailer card. Such cards at the front of a 
file are processed tefore cards in any 
other file. (If they appear at the front 
of more than one file, the normal priority 
applies: primaries, secondaries, 
tertiaries. ) 

Whenever a primary-file card matches a 
secondary- cr a tertiary-file card, the ME 
(Matching Record) indicatcr turns on before 
detail-time calculations (see Figure 6 — 
Program Logic Flew) ; it remains on for the 
processing of all primaries with the same 
Mat china Field (s) value (s) - It also 
remains en for the processing of all secon- 
daries and tertiaries that match the pri- 
mary. If the MR indicator is turned off 
during the processing cf cne of these 
matched cards, by a programmer's specifica- 
tion, it turns on again, before detail-time 
calculations of the next card that belongs 
to the matched group. The MR indicatcr 
turns off (before detail time) for the pro- 
cessing cf a card whose Matching Field (s) 
contents do net match those in the relevant 
other file . 

The MR indicator alsc turns off during 
the processing of a card type for which no 
Matching Field is specified. However, such 
cards 

1. are ignored in the sequence check, 

2. do not destroy the value (s) stored fcr 
sequence checking frcm the last preced- 
ing card with Matching Field (s) speci- 
fied, and 

3. do not destroy the value (s) stored for 
file matching. 

Cards continue to be processed from the 
same file until the next card is read for 
which Matching Fields are specified. The 
normal matching and sequence-checking 
operations then resume. The Matching 
Fields values in the new card are compared 
with matching and sequence values stored 
before the not-to-be-matched card (s) 
intervened. 

The status of the ME indicator may be 
utilized tc control calculations and output 
operations, including stacker selection 
(e.g., to direct unmatched cards to sepa- 
rate stackers) . 

Normally, stacker selection based on the 
status of the ME indicatcr should be at 
detail-time output—otherwise the next card 
is selected, since the MR indicator 
reflects the matched or unmatched status of 
a card beginning at its detail time and 
through the ensuing total time, when the 
next card is in cutput position. 
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In order to stacker-select cards, or 
control ether cutput operations (i.e., 
punching and card- printing) , on the basis 
of the MP indicator (in a multi-file opera- 
tion) , the file must be defined as a combi- 
ned file (C in File Description Specifi- 
cations) . 

The matching of files also nakes it 
possible tc punch and/cr document- print 
data from primary- file cards intc matched 
secondary- and/or tertiary-file cards, or 
from matched secondary-file cards intc ter- 
tiary cards of the same matching group*. 
Similarly, contents (codes, data) frcm a 
card in higher-pricrity file can be used to 
condition operations for a matching card in 
a lower-ranking file (primary to secondary 
and/cr tertiary, secondary tc tertiary) . 
The converse is net possible, because 
matching cards of a higher-priority file 
are completely processed before a Hatching 
card freir a lower-priority file begins 
processing. 



*N o t e : The reference tc data from matched 
secondaries tc tertiaries in the last para- 
graph means that both types matched a 
primary-file card--seccndaries and ter- 
tiaries cannot be directly matched to each 
other. 



Although Matching Fields are freguently 
used concurrently as control fields (indi- 
cators L1-I9) , the PR and Ix indicators are 
independent — i.e., file matching and group 
control have no inherent connection. In 
considering the status of I-indicators (if 
control levels are specified), the files to 
be matched should be thought of as though 
they resulted in one continuous merged 
file — even if they are net being merged. 
(However, Matching Fields and Control level 
are related to the extent that control- 
field comparisons are only performed when 
cards frcm pertinent files are processed; 
this, in turn, is based on the Matching 
Fields operation.) 
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Processing Sequence for Three Files being Matched 
(see CONDITIONS and LEGEND below) 



Primary 
File 



ieconaary 
File 



lerriary 

File 



P 51 



P 50 



P NMb (99) 



P 50 



P 46 



P 40 



P 25 



P NMa (feb) 



P 09 





P t>2 


r^ 


P 01 



T 50 



S NMb (60) 



S 50 



S 35 



5 25 



S 19 



S 02 



S 01 



S 0J 



S NMa (99) 



T 50 



T 35 



T 19 



n 



T 09 



NMc ftM 



T 09 



T 03 



T NMa (93) 




CONDITIONS 

GIVEN: Two single-column Matching Fields are used, and designated as 

numeric (0 in "Decimal Positions" in Input Specifications); 
ascending sequence is specified. Control levels are also 
designated, for all card types (including those not being 
matched): L2 for high-order (left) field, LI for low-order field. 
LI is specified for all files; L2 only for Primary and Tertiary. 
Assume col. 17 of File Description Specifications is blank for 
ail three files, so that all files must be completed before LR 
turns on. 

LEGEND: P = Primary-File card; S = Secondary -File card; T = Tertiary- 
File card. Arabic numerals- = Contents of fields specified as 
Matching and Control-Level fields; "b = blank. NM = No 
Matching Field specified for this card type; lower-case 
letter = Specific card of such type. MR = MR indicator ON 
for processing of this card (Detail Time through ensuing Total 
Time); NMR = MR indicator OFF for processing of this card. 
L2, LI = L2 and/or LI (as shown) indicator on for this card 
(beginning with Totai Time and through its Detail Time). 



liaure 13A. Matching cf Files - Input Files before Matching 
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T NMb (bt>) 



T09 



NMR 



P NMc (bb) 
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T03 



LRand L1-L9 0N 
(Total Time) 



L2, LI 
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LI 9>ut Total Time bypassed) 



figare 13B. Matching of Files - The three Files after Merging 
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Figures 13A and B illustrate the proces- 
sing sequence for multiple files, the sta- 
tus of the HE indicator in the various 
situations, and the acticn of Lx indicators 
(L1 and 12) if assiqned tc the same fields 
used as Matching Fields. The example vas 
deliberately constructed tc show the 
effects of various unusual conditions in 
combination, and is therefore somewhat 
artificial. It should, however, make it 
possible for the user to predict how 
sequencing, the MR indicator, and tx indi- 
cators will act under any ccmbinaticn cf 
conditions he may set up. 

For clarity in shewing the sequence in 
which the cards are processed, the three 
original files are subsequently pictured 
merged into one file, although they need 
not be merged. Explanatory comments for 
Figure 13 follow. If the reader is only 
interested in the processing seguence and 
MR indicator — not the Control Levels — he 
can ignore the Control-Level entries: they 
have no effect on the file processing 
sequence or the status of the MR indicator. 

Items to b e Noted in Figure 13 

1. Card types for which Matching Fields 
are not specified 

a. a card type for which Matching 
Fields are not specified is pro- 
cessed immediately after the pre- 
ceding card from the same file. 
See position of cards T NMa, P NMa, 
1 NMb, T NMc, F KBt and S NMt. 

b. If cards of such type are at the 
front of any file, they are pro- 
cessed first, even if they are 
neither in the primary file nor 
contain the lowest (if ascending 
sequence) value in the fields en 
which other cards are matched. See 
position of card S UMa. (If all 
files began with such cards, these 
cards would be processed in the 
file-priority sequence: primaries, 
secondaries, tertiaries.) 

c. Hone of these cards causes a 
seguence error. The card itself is 
omitted frcm the sequence check, 
and thus is never signalled as out 
cf sequence. The core-storage 
sequence-data area retains its con- 
tents frcm the last preceding card 
with Matching Fields specified, and 
the next card to be matched is com- 
pared with this data — thus, the 
intervening nct-tc-te-matched card 
dees not affect the seguence com- 
parison of the ensuing card. 

d. The MR indicator is CFF for such 
cards; but it turns ON again fcr 
the next card if — without the 



intervening not-tc^ be- matched 
cards — it would be ON. See KR 
indicator for card following P NMa, 
T NMc, P NMb, and S NMb. 



2. Zones and Blanks 

Since Matching Fields were designated 
numeric: t - 0, and 11- and 12- 
overpunches are omitted by the prograi 
frcm match and seguence comparisons* 
See cards S 0J and Pfc2. 

3. No matching is performed between seedfe* 
daries and tertiaries. Note that the" 
ME indicator is off for cards Sl9/Tt9 
and S3 5/T3 5. 

4. During the processing of a matched 
primary-file card, there is no indie*-:. 
ticn whether it matches only a '-..-.- 
secondary- or only a tertiary-file 
card, or both. 

5. Control Levels 

a. whether, and in what manner, con- 
trol levels are specified has no 
bearing on the seguence in which 
cards of multiple files are 
processed. 

b. When a secendary-f ile card is pro- 
cessed, the high-order control- 
level field (L2) is not compared 
nor are its contents altered in 
core storage, from the last-pre- 
ceding primary- or tertiary- file 
card — because, solely to illustrate 
the effect, 12 was not specified 
for the secondary file. 

c. Since control levels were specified 
for all cards in a file, the Nfi 
cards affect control breaks 
although they are not being 
file-matched. 

d. The Control-Level fields were 
designated numeric. Therefore t> = 
0, and 11- and 12-overpunches ate 
omitted by the program from groap 
controlling. 

e. Control level operates as though 
the three files were one file, in 
proper sequence according to the 
RPG file-matching operation. 

The L1 and L2 indicator status, as shown 
in Figure 13B, will now be discussed for 
each relevant card in the example, in the 
order the cards appear in the merged file. 
The reader should bear in mind that control 
levels L2 (high-order field) and LI (lo«* 
order field) were specified (for the Sane 
fields used for matching) fcr all cards of 



Programming for EPG--General Information 97 



files P and T, but only control level II 
was specified for file S. 



T 19 



Card 

li^ en t i fi ca t ion 

S NMa 



P 01 



S 0J 



9 in lew-order field, com- 
pared with stored in con- 
trol field areas at start of 
program execution, sets L1 
en. Note that total time is 
bypassed on first card with 
control fields specified (see 
sections on Program Logic 
Flew and Indicat ors) . 
L2 is off because it is net 
specified for file S. 

Low-order 1 is compared to 
preceding 9 and sets L1 on. 
12 remains eff because high- 
order is equal to ini- 
tially in storage, and not 
changed by card S NMa (nc L2 
control en file S) . 

Zones are removed frcm numer- 
ic fields fcr ccntrol-level 
operations. Therefore, CJ = 
01. 



P 25 



S 35 



T 35 



P 40 



P 46 



P 50 
(first) 

P NMb 



12 on because 1 is compared 
to still in control-level 2 
storage from card T 03 
(second) . 
L1 on only because L2 is on. 

Normal control break. 
12 en for change from 1 to 2. 
L1 on for change from 9 to 5, 
and because L2 is on. 

12 off because no control on 
high-order field of file S. 
L1 off because low-order 
field contents unchanged. 

L2 on because 3 is compared 
to 2 still in control-level 2 
storage frcm card P 25. 

Normal control break, levels 
1 and 2. 

Normal control break, level 
1. 

Normal ccntrcl break, levels 
1 and 2. 

Normal control break, levels 
1 and 2: 99 versus 50. 



P152 



T 03 
(first) ' 

T NMa 



T 03 
(second) 

P 09 

P NMa 



L1 set on for change from 1 

to 2. 

12 off because 5=0. 

11 on for change frcm 2 to 3. 



12 en for change frcm to 9 . 

L1 on only because L2 is en. 

12 on for change from 9 tc 0. 

L1 en only because L2 is en. 

11 en for change frcm 3 tc 9 . 

LI on for change from S to "B 
(0). 
L2 off because 15 = . 



P 50 
(second) 

S NMb 



T 50 
(first) 



P 51 



Normal control break, levels 
1 and 2: 5C versus 99. 

L1 off because lcw-crder 
field unchanged. 
L2 off because no control 
level on high-order field of 
file S. 

LT off because low-order 
field unchanged. 
12 off because 5 is compared 
to 5 still in control level 2 
storage from card P 50 
(second) . 

Normal ccntrol break, level 
1. 



T 09 
(first) 



T NMb 



T 09 
(second) 

S 19 



11 on for change from 15 (C) 

to 9. 

L2 off because 15 = . 

LI en for change frcm 9 to 15 

(0) . 

L2 off because 15 = . 

L1 on for change from t (0) 
to 9. 

L2 off because no contrcl 
level en high-crder field of 
file S. LI eff because low- 
order field contents 
unchanged. 



/* IE on because end of data 

files. 

L1-L9 on because LR is on. 
Job ends (system halts) after 
total time of /* (in cols. 
1-2) card. No detail-time 
processing takes place for 
this card. 

Sequence-Checking of Sing le Files 

When the application involves only a single 
input (or combined) file, specif icaticn of 
Matching Field (s)--M 1, M2, K3--provides 
seguence-checking on the (se) field (s) , 
without file matchinq. 
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The explanations for sequence-checking consumes less core storage space # than uti- 

given above, under M atch ing of Card Files, lizing the Matching Fields entry for that 

apply--i.€., in regard to ascending, purpose alone; it also permits detection of 

descending and special translation-table duplicates, which is not possible with the 

seguence; stepping en seguence errors; Matching Fields operation. (Figure 68 - 

maximum aggregate size of seguence fields; Part I illustrates sequence-checking and 

and ignoring seguence of intervening card guarding against duplicates by calculation 

types for which no Matching Fields are specifications.) 
specified. 

Mote : Programming a sequence check by 
entries in the calculation specifications 
may yield faster throughput, and usually 
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SPECIFIC STICKS SHEETS ANE CARDS — DETAIIED ENTRIES 



This chapter and the five chapters that 
follow discuss the specifications fcr every 
field in each of the five specifications 
forms. Where illustrations were thought 
desirable for clarification, they are 
given. (Soluticns to scie special applica- 
tions problems, however, are presented in 
Appendix E, Pro gr amming Tips, rather than 
here.) Attention is drawn to limitations 
and potential trouble areas, where deemed 
of general interest and significance. 

Functions treated extensively in earlier 
chapters will not be repeated in detail 
here. The user is assumed to have read the 
precedinq material, and is asked tc refer 
back to it fcr the fine points. The con- 
tents of the chapter Programming, f cr_ RPG — 
General Infprmaticn, particularly, will be 
an indispensable reference. 



I 
RPG 
that 
of o 
case 
that 
othe 
tive 
note 
ploy 
appr 



n a 
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s, a 
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few instances, the Model 20 card 
ides a latitude in specifications 
s not conform to the reguirements 
TEH System/36C RPGs. In these 
brief note will fellow, indicating 
ferences exist between this and 
stem/360 RPGs. Tc obviate repeti- 
ailed explanations in each such 
e term "compatibility" will he era- 
s reason for the recommended 



IIII£S_CCKHCN_TO_ALL_SPECIIICATICNS_FCEBS 
AND CARDS 



XoTcrmn's T-2: 
Columns 3-5: 



Fa c e " "i den t"i f Teat i c n 
Line identification 



While Page and line identifications will 
usually be numeric, any EECEIC characters 
are valid. (Zero does not egual blank.) 



The f 
preprint 
it easy 
tions, b 
lowing 1 
ate inse 
cations 
seguence 
seguenti 
specific 



irst t 
ed; th 
to ass 
y writ 
ine 15 
rtion. 
type m 

when 
al num 
aticn 



wo digits 
e third is 
ign line n 
ing specif 
and numbe 
The card 
ust be in 
they are r 
bering fac 
cards, and 



of line number are 

left blank, tc make 
umbers for inser- 
ications lines fol- 
ring fcr apprcpri- 
s within a specifi- 
apprcpriate 
ead by RPG. Proper 
ilitates sorting of 
checking. 



Page and line identifications are read 
as one combined continuous value and 
checked for ascending seguence according to 
EBCDIC (See Appendix D, Figure D1). They 
may start at any value and gaps in the 
seguence are permitted. A step-down 
(descent in seguence) or repetition is 
identified by a printed syirbcl (S) during 
program generation, but generation is not 



interrupted. (The crder in which the pro- 
grammer writes and numbers the different 
kinds of specifications sheets will often 
differ from the order in which the specifi- 
cations card types must be fed into the 
system. The symbol for seguence step-down 
will then be printed, and can be ignored if 
due tc this reason.) No seguence symbol is 
printed for a step-down at the first card 
of calculation specifications. 



Column_6_: Form Type 

This is a predetermined and constant letter 
for each type of specifications form and 
card. If cards of one specification type 
are followed by those of another type that 
may legitimately fellow, and cards of the 
first type then recur, the latter group is 
ignored and an error message is printed; 
but generation continues. 



Columns 75-80: 



User's Identification 



May contain any EBCDIC characters. This 
field is not checked by the program, but 
the contents are printed during generation. 

Com me nts Card: *± c a rd_£ u n c h - com bi nation 

VI - B.Z&) in column 7. 

The * in ccl. 7 designates that this is not 
a specification card. The program checks 
only columns 1-6 (see abeve) . The card 
does not e f f ec t _ an y p r c gram.- ge juara-tixxn^~ -but - 
the contents of columns 1-8C are printed 
during generation. 

This allcws the programmer to insert 
notations at any points in the 
specifications. 

Blank Spe cif i catio ns li nes o r Car ds 

Elank lines may be left between specifica- 
tions lines, for clarity; but intervening 
blank specifications cards (without * in 
col. 7) cause printinq of a diagnostic mes- 
sage during generation, although they do 
not prevent proper qeneraticn of the object 
program. 

Leading Ze ros in Sp e cifi cat io ns Fields 

The recording of leading zeros is optional 
only in specification fields for card- 
column numbers', forms skip (in this RPG) , 
End Position in Output Record (Output- 
Format Specifications) , field legths (Cal- 
culation Specifications) , and fcr numbers 
and lengths of table entries (File Exten- 
sion Specifications) . 
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FILi' EUSCkiftICN 3PECIFICATK 



GENERAL INFCEMATICfl 



Maximum Number of Files Available 



Each file used in the object program must 
he defined in cne line of the File Descrip- 
tion Specifications form (See Figure 14). 
The form serves the following purposes: 



To assign a name to each file by which 
it is referenced in the Input and/cr 
Cutput Specifications; 



3. 



To associate each file name with a 
cific input and/or output device; 



?pe- 



To indicate whether the file is tc pro- 
vide data input, serve fcr output, or 
both; 



4. To specify — when cards within an input 

(or combined) file, cr files, will be 
sequence-checked — whether secuence is 
ascending cr descending; and 

5. If more than one file provides data 
input, tc indicate which file(s) must 
be completely processed before the job 
is terminated. 



This is dependent on the input, output, and 
input/output devices attached to the 
system : 



• One input file is available for each- 
input or input/output device. 

• One output file is available for each 
output or input/output device. (An IBM 
2203 Printer with Dual-Feed Carriage 
special feature cffers two output 
files. ) 

• One combined file is available for each 
device that can serve for both input and 
output. 

File types (input, cutput, cr ccm.bined) 
are mutually exclusive (i.e., one file can 
only be an input file, or an output file, 
or a ccmtined file) , and cne input/output 
device can be assigned only to a sinqle 
file. 

Each cf the two hoppers cf the IBM 2560 
MFCM can be independently assigned to an 
input file, or an output file, or a combi- 
ned file. 
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• Figure *\H. The File Description Fern 
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Figure 3 shows which input, output, and 
input/output can be combined on the system. 



FILE DESCRIPTION 



File Name — Columns 7-14 



Each 
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file 
of t 
cont 
ters 
long 
"alp 
neit 
name 



fil 

by 
rded 
. I 
he 2 
inue 
. I 

• ( 

habe 
her 

mis 



e used in th 
the prcgramm 

here en a s 
t must begin 
S alphabetic 

with alphab 
t may be one 
See Definiti 
tic" and "nu 
permits embe 
t not be ass 



e program is assigned a 
er. This name is 
eparate line for each 
in column 7 with one 
characters, and may 
etic cr numeric charac- 

to eight characters 
en of Terms , for 
meric" characters — 
dded blanks.) The same 
igned to several files. 



Note 

stat 

not 

alph 

alio 

that 

defi 

ters 

ters 

howe 

adhe 



ed t 
cont 
abet 
wed. 

the 
ned 

may 
. F 
ver, 
red 



Throughout the 

hat File Names a 

ain embedded bla 

ic cr numeric ch 

Actually, the 

first character 
as alphabetic. 

be any of the 2 
cr compatibility 

the stated rest 
tc. 



publication, it is 
nd Field Names must 
nks, and only 
aracters are 
program checks only 
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56 EBCDIC charac- 

with ether FPGs, 
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C = Combined file. 



Seme or all of the cards in the file 
provide input information a nd some or 
all cf the cards in the file receive 
output. The file name appears both in 
the input and the output 
specifications. 



If input cards are to be stacker- 
selected in the cutput specifications 
(e.g., based on calculation results or 
on status of certain indicators, such 
as MR) , they must belong to a combined 
file. 



Ncte: If the user wishes to make cer- 
tain that output cards are blank in 
certain or all columns before they are 
punched, he must desiqnate them as 
belonginq to a combined file. The 
fields that should be blank can then be 
read via input specifications, and 
indicators set fcr blank or not blank. 

File Type U does not apply to Model 20 card 
RPG. 



No check is performed by the program 
tc assure that, if C is designated, the 
File Name appears in both the input and 
output specifications. 



No te 2: Files may be entered in the File 
Description Specifications in any con- 
venient seguence. For compatibility with 
other RPGs, the crder cf i^put and combined 
files shculd correspond to that in the 
Input Specifications. See also File Desig- 
nation (col. 16), below. 



File Type — Column 15 

I = Input file. 

The cards are read tc provide input 
data . 

There is no output tc any of the cards. 

The file name appears in the input 
specifications, but net in the output- 
format specifications. 

C = Cutput file. 

No information is read from the cards; 
they serve only to receive cutput. Or, 
this file name represents the printer. 

The file name appears in the output- 
format specifications, tut net in the 
input specifications. 



File_Eesignaticn--Ccluffn_J6 

Leave blank fcr output files. No entry 
required for input [or... combined)., fil.es ... _ 

Model 20 card FFG ignores entries in 
column 16 of the File Description Specifi- 
cations form, and the crder in which the 
files are listed on this form. The order 
of priority cf input (cr combined) files is 
established in the Input Specif icatiens. 



However, for compatibility with other 
RPGs, the order in which input (or combi- 
ned) files are recorded in the File 
Description Specifications should conform 
to that in the Input Specifications, and 
column 16 should contain a specification: 



P (Primary) 



=The only input (cr combined) 
file, or the input (or combi- 
ned) file recorded first on 
the Input Specifications 
form. 



S (Secondary) =The second or third input (cr 
combined) file on the Input 
Specifications form. 

The C, E, and T entries dc not apply to 
Model 20 card RPG. 
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Primary-file cards are processed ahead 
of matching secondaries; wten seccndary- 
and tertiar y-f ale cards match primaries, 
the order cf processing is: primary cards, 
secondary cards, tertiary cards (second 
file with S in ccl. 16) . 



It is permissible for output-file 
entries to intervene between the entry 
lines for the several input (cr combined) 
files. 



LUiuuua 



i zi - o J 



End cf File — Column 17 

If there are multiple input (or combined) 
files, this column determines which of 
these files must be exhausted before the LR 
indicator turns en and the job terminates. 

E entered in column 17) for all input (or 
or 15 in eclumn 17 / ccmbined) files: 

All input (or ccmbined) files are 
exhausted before IE is turned en and job 
is terminated. 

E entered in eclumn 17 for some — but not 
all — input (or combined) file(s): Ihe 
LE indicator turns on, and the job ter- 
minates, after processing of the last 
data card of all files for which E was 
entered — even if cne cr two ether files 
(blank in eclumn 17) are not yet 
exhausted . 

For a single input (cr ccmbined) file, the 
LE indicator turns on, and the job ter- 
minates, after the last data card has teen 
processed--regardless of whether eclumn 17 
is blank cr contains E. 

Leave column 17 blank for output files. 



Sequen ce —Column 18 

leave tlank unless sequence checking is 
called fcr in the Input Specifications (by 
entries in Matching Fields, columns 61-62). 
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A = Ascending sequence 
D = Descending sequence 

Leave column 18 blank fcr output files. 



Leave blank. These columns do not apply to 
Model 20 card RPG. (While comments may be 
recorded in these columns with this pro- 
gram, this would interfere with other BPG 
programs.) 



I/O DEVICE ASSIGNMENT 



Device — Columns 40-46 

A mnemonic code is written in this field to 
assign a specific input, output, or input/ 
output device to the file whose name was 
recorded in columns 7-14. Whenever a par- 
ticular file name is then referred to in 
subsequent specifications, the system acts 
upon a card (or paper form) in the I/O 
device identified here with that file. 

The Device code is written left-aligned, 
starting in eclumn 40. A cede for each 
device has teen pre-determined by IEM, and 
must be written exactly as shown below. 



Specification 

Entry 

CEP20 

MFCM1 
MFCM2 
I PRINTER 



PRINTLF 
PRINTUF 

PUNCH20 

PUNCH42 
READ01 



Input/Output Device 



IEM 2520 Model A1, Card 

Read-Punch 
IEM 256C MFCM, Hopper 1 
IEM 2560 MFCM, Hopper 2 
IEM 1403 Printer, or IEM 

22C3 Printer (Standard or 

Lower Feed) 
Same as PRINTER (see above) 
IBM 2203 Printer, Upper 

Feed of Dual-Feed Carriage 
IBM 2520 Model A2 or A3, 

Card Punch 
IBM 1442 Card Punch 
IBM 2501 Card Reader 



If the Dual-Feed Carriage special 
is installed, and both carriages 
d in the program, each carriage is 
d a separate file name and Device 
RINTER or PRINTLF, and PRINTUF) • 



Note: 

feature 

are use 

assigne 

code (P 

Two printer output files then exist. 

lower-f 

sole) c 

20, 220 



eed carriage is the standard (or 
arriage. (See IBM System/360 Model 
3 Printer, Form A26-5926.) 



For compatibility with other RPGs, 
PRINTER (rather than PRINTLF) should be 
used for the standard, or lower-feed 
carriage. 

READ01 will function also as MFCM1, pro- 
vided there is only a single input file, no 
MFCM output is involved, and no 2501 is 
attached . 
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• Figure 15. Example of File Description Specifications 



Columns 47-65 

Leave blank. Net applicable to Model 20 
card RPG. (While comments may be recorded 
in these columns with this program, this 
would interfere with other EPG programs.) 

Comm ents — Columns 66-74 (for card EPG only) 

Available for any information the program- 
mer wishes to have printed ovt during 
generation of the program. Except for this 
printout, entries in this field are ignored 
by the generator program, and do net take 
up any core storage in the object program. 



TXjrn-PTF_ CF^TJJE_rE^FTPriCB_SPECIFlCATlCNS 
Z-IIGUBE_J_5 

Job Requirements (These Relevant to File 
Description Specifications) 

Match a large file of monthly accounts 
receivable balance cards aqainst transac- 
tion cards. When there are transactions on 
an account, punch a new summary card. Also 
list balance and transaction data. The 
data files are in ascending seguence. Ter- 
minate the run after the last transaction 
card, so that any remaining portion of the 
old-balance file is not unnecessarily pro- 
cessed. Select unmatched transaction 
cards. 

Explanation of Specif icaticnsEntries 

File Name 

Arbitrary, but descriptive, file names were 
chosen to illustrate 



That the first letter must be 
alphabetic 



b. That there are three symbols that are 
defined as alphabetic — note $ in first 
position of second file name (see 

P§ JLi.Dib ion_o f _ Te r m s . ) 

c. That numeric characters may be used 
except in first position of file name. 

File Type and T/C Device 

The old-balance file (0LDEALC1) serves as 
input only (I in col. 15) , and is to te fed 
throuqh the IEM 25C1 Card Eeader (Device 
code EEAeOI in cols. 40-45). 



The transaction 
as data input only 
that do not match 
selected. Stacker 
the status of the M 
ified in the Outpu 
which makes it an 
$TRNSACT file thus 
and output specifi 
fore be defined as 
col. 15) . The fil 
per 1 of the MFCM 



file ($TENSACT) serves 
; but the STRNSACT cards 
CLDBATC1 cards are to be 

selection predicated on 
F indicator must be spec- 
t-Format Specifications, 
output operation. The 

appears in both input 
cations, and must there- 

a combined file (C in 
e is to be fed from hop- 
(Device code MFC11). 



The new-balance file (NEWEAL1) serves 
only for output, and does net appear in the 
input specifications. Therefore, is 
entered in col. 15. It is immaterial 
whether the cards are blank when placed in 
the hopper (as they would normally be in 
this application) or prepunched: they will 
not be read. The file is to be fed from 
hopper 2 of the PFCN (Device code fFC? r 2) . 
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An accounts receivable transaction list 
(file L5SRTENS) is to te printed cr an IBM 
1403 Printer, or en an IBM 2203 Printer 
under control of the lower feed. The 
Device cede for either is PRINTER (or 
PRINTLF) . The printer can only be output 
(0 in col. 15) . 

Pile Designation, and Order of File Entries 

The entries in column 16 designate that 
0LDBALC1 cards (P in col. 16) are processed 
ahead of matching $TRNSACT cards (S in ccl. 
16) . For the same reason, the CIDEALC1 
file is entered ahead of the $TENSACT file- 
-and this corresponds to their order or the 
Input Specifications form. 

Both the code in col. 16 and the order 
in which the files are listed en the Pile 
Description form are ignored in Model 20 
card REG. They are reguired only for com- 
patibility with ether RPGs. 

End cf File 

The E in ccl. 17 of the $TRNSACT file spec- 
ifies that the job is tc he terminated 
after the last card of this file has been 
processed — regardless of whether the 

0IDEALC1 file was exhausted earlier, 



at the same time, cr still has unprocessed 
cards left. 

If column 17 were blank for both input 
(cr ccmbined) files, or contained E for 
both, the job would not be terminated until 
both files are exhausted. 

Col. 17 is not used with output files, 
and is therefore blank for the NEABAI1 
file. 

Sequence 

The A in column 18 specifies that the input 
(or ccmbined) files are in ascending 
seguence. Multiple input files must be in 
sequence, and all must be in the same 
sequence. 

Comments 

The entry in cols. 66-74 of the $TRNSACT 
file line will be listed at program-genera- 
tion time, en the same print line as the 
File Description Specifications for this 
file. In card RPG, its only function is a 
comment to the programmer or operator 
(e.g., "remember to check stacker 2 during 
program execution: it will contain problem 
cards") . 
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INPUT SPECIFICATIONS (MANDATORY) 



GEMEAt_INFOFMATICN 

The input specifications (see Figure 16) 
serve to 

1. Establish the processing priority for 
matched cards from multiple input (or 
combined) files 

2. Identify card types within an input or 
combined file 

3. Specify card-type seguence within the 
file 

4. Direct input- or combined-file cards to 
stackers en the basis cf card type 

5. Define input fields, and their data 
formats 

6. Set indicators based on the status of 
individual input fields 

7. Identify ccntrcl fields 

8. Designate fields to be matched between 
cards of multiple input (or combined) 
files 

9. Specify card field(s) for secuence 
chec king 

Each input or combined file must be 
recorded en the Input Specif icatiens fcrm. 



A file consists cf cne or more card types 
in one hopper. 

Each card type that can exist in an 
input file must have at least a Seguence 
entry (cols. 15-16) in the Input 
Specif icatiens — otherwise an error step or 
perpetual program leep occurs when the card 
type appears during program execution. 

In a combined file, any card type from 
which data is to be read, or which is to be 
processed on the basis of card-type identi- 
fication, must also be entered in the input 
specifications. Normally, this means that 
all card types of a combined file must be 
identified en the Input Specifications 
form, just as for an input file; an excep- 
tion is a combined-file card type which is 
never read or identified, but is punched 
and/or card-printed by multiple-time output 
instructions during cne program cycle cf 
another card (see Program Lo gi c Flow , 
Multiple-Time Cutput to Cards during Cne 
Program Cycle) . 

At least one input or combined file is 
reguired for an RPG program. Input fields 
are defined only if they are to be read; it 
is possible tc perform an RPG job without 
any input fields (e.g., stacker selection, 
or error halt, based on card type) . 

Output files must net contain an entry 
en Input Specifications forms. 
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Figure 16. The Input Specifications Fcrm 
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-C ~-r- 4. V, 



me eiiLLico j. wi. 



form are divided into three categories, as 
shown in Figure 16, 



1. 



File and Card-Type Identif icaticn-- 
Cclumns 7-42 

This segment designates the file, iden- 
tifies the card types it contains, 
determines the order in which card 
types within the file should cccur, and 
permits stacker assignments by card 
type. 

Each card-type identification uses a 
separate specification line, or group 
of lines, which must not contain any 
field description. 

The order in which multiple input 
(cr combined) files are entered in the 
input specifications determines the 
relative processing priority of matched 
files: the first file entered thereby 
becomes the primary; the next one 
becomes the secondary; and a third cne 
becomes the tertiary (cr seccnd secon- 
dary) file. (Also see Matchi ng of 
F iles. ) 

Field descriptions — Columns 43-70 

In this segment, the input fields are 
defined, and their formats are 
described. Indicators may be set on 
the basis of positive, negative, cr 
zero/blank contents of input fields. 
Control fields, and matching fields for 
multiple files, are assigned here. 
Sequence-check fields may be specified. 






XI U O C fc: 



ate specification line. All field 
descriptions for one card type (or 
grouping of card types, if CR-relation- 
ships apply--see below) follow the 
specification of that card type (or 
card-type group) , beginning en the line 
below the card-type specification. 

3. Sterling Sign Position — Columns 71-74 

Applies to Sterling currency fields 
(British monetary system) only. Net 
covered in this manual. See IBM 
System/360 Model 20 f _ Ster ling Curre ncy 
Processin3_EoutineSj_ Form C2 6-3 6 05. 



FILE AMD CAED-TYPE IDENTIFICATION 

File Name — C ols. 7-1 4 

Each file is given a separate name by the 
programmer — the same name tsed for that 
file in the File Description Specifica- 



tions, where the file name is associated 
with a particular I/O device. 



The name of each input cr combined file 
is entered en a separate line in this 
field. It must begin in eclumn 7 with one 
of the 29 alphabetic characters, may con- 
tinue with alphabetic cr numeric charac- 
ters, and may be one to eight characters 
long. (See Definit ion of Te rms , for 
"alphabetic" and "numeric" characters — 
neither permits embedded blanks.) Field 
description must not appear in the same 
line . 

The file name is recorded once per file, 
on the first line for that file. If 
desired, it may be repeated for additional 
card types within the same file; but this 
is unnecessary. 

Seguence , Number, Option--C cls . 15-16 , 17, 
18 (Card-Type Seguence Check) 

When there are several card types within 
one file, the job may or may net reguire 
them to be in a particular sequence. The 
program can be directed to check that the 
sequence in which the types occur during 
object-program execution conforms to a 
specified seguence. An error results in a 
halt. The system may be restarted (see 
restart procedure in Operati ng Pro ce dures 
manual) . 

This check has no connection with a 
sequence check on the values in fields of 
succesive cards in a file (see cols. 61-62) 
nor with control-level groups (see cols. 
59-60). For instance, the correct seguen- 
tial position of a card type amen^ other 
card types — but in the wrong control group^ 
— is not detected by entries in these 
fields. These entries merely verify that a 
specified sequence of card types iterates 
within the file and--with limitations — that 
the quantity of each card type adheres to a 
criterion en each iteration. Therefore, 
not every kind of error in card-type 
sequence is detected; nor is the last group 
in a file checked for completeness, so long 
as no detectable card-type sequence error 
occurs up to the point of the last card in 
the file. However, Control-Level specifi- 
cations (see eels. 59-60) provide for 
quarding against admixture of cards of the 
correct type but wrong control group; and 
simple Calculation Specifications entries 
can protect against most of the remaining 
card-type seguence errors net detected by 
entries in cols. 15-18 in the input speci- 
fications. (Cne such example appears in 
Figure 5D, Line 06.) Detailed explanations 
and illustrations of the card-type 
sequence-check operation follow later in 
this section. 
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The Sequence entries in cols. 15-18 in a 
specif icaticr line apply tc the card type 
in that line, as identified by specifica- 
tions in cols. 23-41 . 

Card types in an OR relationship (see 
fcelow) have nc card-type-sequence specifi- 
csaticns. The specif icaticns in the main 
line above the OR line (s) apply to the OR 
types, too. It is not possible to specify 
3 different sequence position or quantity 
check to card types in an OR relationship. 

Sequence — Cols. 15-16 

Co^Mins 15-16 must both have an entry in 
the-' first specification line of every card 
typ* (i.e., no Sequence entry is made in an 
ANt or Of. line — see below) . 



Bote : ANE and OR lines are identified by 
AKD and ORt, respectively, in cols. 14-16 — 
see below. 

The entry in cols. 15-16 must consist of 
a two-diqit number when the card-type posi- 
tion in relation to other card types in the 
same file is to be checked. 

The entry in cols. 15-16 must consist of 
any desired combination of the 29 alphabet- 
ic characters (see Def initicn.. of Terms ) if 
the relative position of that card type, 
a»cng several card types ir the file, is 
jiot to be checked. (If desired, the same 
alphabetic characters may be used for sev- 
(dal such card types.) A card type with 
iLLphabetic entry in cols. 15-16 cannot be 
checked for number of such cards in a 
groop, and its presence in a group is 
iaiwa^y-s GCBrSide-re^d option al T - - 
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When some but not all 
file are to be checked f 
tien-n the specifications 
to b« checked for sequen 
cpls. 15-16) must preced 
sequence-numbered card-t 
--even though the cards 
interspersed in the card 
sequence-numbered types, 
between multiple cards o 
sequence-numbered type. 



card types in a 
cr relative posi- 

for card types not 
ce (alphabetic in 
e those for all 
ypes for that file 
themselves might be 

deck amcng the 

and may even occur 
f a single 



Col. 17 must contain an entry when cols. 
15-16 contain a numeric Sequence number. 
Cols. 17-18 must be blank when cols. 15-16 
contain an alphabetic Sequence code. 

When there is only a single card type in 
a file (cr all card types are in an OR 
relationship), cols. 15-16 may be alphabet- 
ic or numeric (if numeric, col. 17 must be 
coded 1 or N) . Alphabetic entries are 
recommended in this case, because of the 
contingency described in Warnings, item 
2 (a) , below. 



Note : The 
Sequence e 
ible with 
20 card RP 
between a 

(i.e . , rel 
checked) a 
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fied) on t 
is nc rest 
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Sequence entry 
ative card-type 
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d-type position 
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ricticn en the 
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abetic and numeric 
bove are compat- 
RPGs. The Model 
lly distinguishes 
defined as numeric 

position to be 
as alphabetic 

not to be veri- 
. 15 alone; there 
ccntents cf ccl. 
quence code is 



1. Alphabetic, if ccl. 15 contains any 
EECDIC character other than blank 

(hexadecimal 40) and other than those 
in EECDIC-table column F (upper half- 
byte hexadecimal F). 

Ccl. 16 may contain any cf the 256 
EECDIC characters (including "blank"). 

2. Numeric, if col. 15 contains any 
character in EBCDIC-table column F 

(upper half-byte hexadecimal F) . 

Col. 16 may contain any of the 256 
EBCDIC- c h aracters- {i&el-uding-^b-laftk' 1 ) < 

The card-type seguence check is 
based on the EBCDIC sequence. 

See Appendix D and Figure D1 for 
explanation of EBCDIC. 



Number — Col. 17 

When cols. 15-16 contain a numeric Seguence 
entry, col. 17 must also contain an entry 
to specify the number of cards of this type 
in each iteration of card types: 1 or N. 

1 = If the card type is present, there must 
be exactly one card of this type. 

N = If the card type is present, there must 
be at least one card of this type and 
there may be more than one. 

Column 18 determines whether the card 
type must be present. 

Column 17 must be left blank in ANE and 
OR lines, and if cols. 15-16 contain an 
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check) . It is net possible here tc verify 
the guantity of cards of a type whose 
sequential position in relation to other 
types is net consistent (i.e., cannot he 
checked) . 

Option — Ccl. 18 

When col. 17 contains an entry (i.e., cols. 
15-16 contain a Seguence number), ccl. 18 
may be blank or contain the letter 0. 

•C = This card type must be present in each 
iteration of card types. 

= Presence of this card type in each 
iteration of card types is cpticnal. 

Whether enly one card or several 
cards may be present — if the type is 
present--is determined by the entry in 
col. 17; i.e., even if presence of a 
type is optional, a check is made to 
verify that--if the card type is pre- 
sent at all--cnly one card of the type 
is present if 1 is specified in ccl. 
17. (As clarified further on, this 
verification is not effective if all 
card types in the file are optional.) 

Column 18 must be blank if ccl. 17 is 
tlank (nc card-type seguence check, or AND 
or OE line). When cols. 15-16 contain 
alphabetic entries (i.e., no check on posi- 
tion of card type) , the program assumes 
that the presence cf such card type is 
optional . 



WARNINGS: 

1. No card-type seguence cr guantity check 

is effectively performed at aj.1 ii any 

cf these conditions apply: 

a. All card types in a file are 
cpticnal (0 in col. 18) cr have 
alphabetic Seguence code in cols. 
15-16. See Figures 19A and D. 

b. One card type is ncn-optional (nu- 
meric entry in cols. 15-16, and 
tlank in col. 18), but all others 
have alphabetic cedes in cols. 15- 
16. See Figure 19E. 

c. Cne card type is reguired (numeric 
in cols. 15-16, blank in col. 18) 
and coded 1 or N in col. 17; only 
cne other card type is specified 
with numeric sequence (cols. 
15-16), and it is coded N and C in 
cols. 17 and 18, respectively. (In 
this case, however, the first card 
cf the file is checked tc verify 
that it is either cf the first type 



2. 



specified or of the non— optional 
type.) See Figure 19C. 

While the proqram goes through the 
seguence-check steps when numeric spec- 
ifications in cols. 15-16 exist, it 
cannot (in the above situations) dis- 
tinguish between an incorrect card-type 
sequence and legitimate appearance of 
card types from successive groups, nor 
between erroneous duplication of a card 
type and two successive cards of that 
type from successive groups. 



a. 



If the presence of all card types 
in a file is optional, and at least 
one of these types has a numeric 
Seguence specification in cols. 15- 
16, (the others either having 
alphabetic entries in cols. 15-16, 
or also numeric ones with in col. 
18) , then--if a card of a type 
appears for which there is no entry 
in cols. 15-16 — the program will 
neither advance nor error-stop: it 
remains in a perpetual loop, 
searching for the card-type 
seguence-check specifications of an 
unspecified type. See Figure 19D. 



For this and other 
reasons, it is recomme 
for each input (cr com 
a specification line a 
included with Resultin 
and Sequence entry for 
types, possibly with h 
H2) specified in Eesul 
tor and, if desired, s 
separate stacker. See 
later sections. 



control 
nded that — 
bined) file — 
lways be 
q Indicator 

"other" card 
alt (H1 or 
tinq Indica- 
election to a 

next and 



b. 



However, if any card type with a 
numeric entry in cols. 15-16 is 
non-optional (no in col. 18), or 
if all card types have alphabetic 
entries in cols. '15-16, then an 
unidentified card type automatical- 
ly halts the system. See Fiqures 
19A and C. 



Fiqures 19A, E, C, and C illustrate 
these points. 



Example of Card-Type Sequence Check 

Fiqure 17A portrays an inventory file ready 
for updating. Fiqures 17E and C show 
alternative proper entries in cols. 15-18 
for such a file. Some aspects of the 
example may appear artificial, but were 
selected to maximize clarification. Fiqure 
18 illustrates the method the proqram fol- 
lows to check card-type sequence, using the 
card arranqement in Fiqure 17A. 
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^590 BALANCE 

FORWARD 



1^565 STOCK 

RECEIPT 
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GROUP 3 
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Figure 17A. Sequence Checking of Card Types within a File 
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Assu m ption s. For each stock number: 

• There is one Balance forward card, at 
the frcnt. 

• The Balance Forward card may be followed 
by cne or more Stock Beceipt cards. 

• There may be any number cf Customer 
Order Return cards next. In calcula- 
tions, these are to be treated like Cus- 
tomer Order cards, type A. 

• There may next be one Back Order Summary 
card. 

• There must be one or mere Customer Crder 
cards last. There are two types, A and 
B, which are to be treated differently 
in pricing, but are treated as cne group 
in seguence-checking. Either type may 
appear first, the two types may be 
intermixed, and cne or both may be 
represented in a group. 

• There may be one or mere Stock Adjust- 
ment cards, positioned anywhere in the 
group. 

Each card type is recorded in a separate 
specification line, and assigned an identi- 
fying Resulting Indicator number. (The 
next section explains how tc accomplish the 
identification. It is included here merely 
so that the entries in cols. 15-18 dc not 
appear tc be the enly ones in the line.) 

The numbers that appear en the cards are 
stock numbers. They are irrelevant tc the 
function cf cols. 15-18. They have been 
includ-ed for the sake of reality, and to 
illustrate the limitations of the check 
performed by entries in eels. 15-18. 

The first and fourth grcups of cards in 
Figure 17A are correct. The second, third, 
and fifth grcups contain seme errors that 
would be detected as a result of the speci- 
fications in cols. 15-18, and some that 
would not. 

Expl anations— Figu re 17B . 

Note: 

1. The entries in eels. 19-27 are 
explained in the next section, which 
references this figure again. It may 
be noted here merely that card-type 
Fesulting Indicator numbers have nc 
connection with card-type sequence 
numbers. 

2. For convenience, little space has been 
left between specification lines in 
Figures 17E and C. It is, of course, 
assumed that — in actual use — the neces- 
sary number of lines are left tc accom- 



modate field descriptions (described 
later) . 



Line 1: The Stock Adjustment 
appear anywhere in the group, 
tion is therefore net to be ch 
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assigned in cols. 15-16. (SA 
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blank when cols. 15-16 are alp 
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-Stock Adjustment 

-Balance Forward 
-Stock Receipt 
- Order Return 

-Back Order Summary 

-■Customer Order - 

Type A 
-Customer Order - 

Type B 



Figure 17B. Seguence Checking of Card 
Types within a File 

The remainina card types in the file are 
to be checked for proper relative position 
among card types. They must therefore be 
recorded in the input specifications in the 
crder in which they appear in the data 
file. 

Line_04_l Of the card types that can be 
checked for seguence, the Ealance Forward 
card must be first. It must, therefore, be 
numbered 01 in cols. 15-16. It must also 
be the card type specified first of all 
types within the file to be checked for 
relative position. There is tc be one 
Balance Forward card per group; therefore, 
a 1 is entered in ccL 17. Col. 18 is 
blank, because the presence of this card is 
mandatory. 
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Line C6: The next card type whose relative 
position is to be checked is Stock 
Receipts. It is assigned any two-digit 
number hiqher than C1 (C6 *as arbitrarily 
selected) . There may be any number of 
cards of this type in each group; there- 
fore, N is specified in ccl. 17. Ccl. 18 
contains the letter 0, because presence of 
these cards in each group is not reguired. 

line C8: Any number higher than the pre- 
ceding number (06) is assigned to the next 
card type in sequence. (Seguence number 11 
is an arbitrary choice.) Again, there may 
be any number of Order Return cards, and 
their presence is optional. Ccls. 17 and 
18 are therefore ceded N and 0, 
respectively. 

line _ 10: The Eack Crder Summary card is 
assigned any higher seguence number than 
the Order Return cards. (The next number 
in seguence, 12, was chosen.) Its presence 
is optional (0 in col. 18) but, if present, 
there must be no more than one (1 in 
col. 17) . 

lines 12 and 1 3: Customer Order cards come 

next, and are therefore assigned any number 
higher than 12 (which was used for the pre- 
ceding card type) . Because there may be 
any number of Customer Order cards in a 
greup, N is specified in ccl. 17. Because 
there must be at least one card of this 
type in each group, col. 18 (Option) must 
be blank. 

These specif icaticn lines illustrate two 
further points: 



No -Gar4=ty-pe- sequence- check, entry. .can. 

he made for an OE line. (CE specifica- 
tion lines are discussed fully later.) 
For purposes of seguence-checking cf 
card-type position, both card types — 
those defined in the basic specifica- 
tion line, and those in the OR line — 
are treated as one type: 



a. The presence in the proper position 
cf either type satisfies any 
requirement for presence (if no 
in col . 18) ; 

t. The presence of either type in the 
wrong positicn is regarded as an 
error; 

c. If 1 is specified in ccl. 17, and 
there is one card cf each cf the 
two types in a group, this is 
treated as an errcr as though there 
were two cards of cne type. 

d. CE lines offer a method cf checking 
the position of several card types 
in relation to others, when the 
several OR card types nay cccupy 
any relative position to each 
ether. 



Sometimes it is desired to treat two 
similar input card types uniformly in 
most calculations and/cr for output; 
but they appear in different positions 
in the input file, and are to be 
checked for proper relative positicn. 



Order Return and Customer Order 
(Type A) cards fit this description. 

Note that these two card types were 
assianed different sequence numbers (1 
and 15, respectively) , but the same 
card-type Resulting Indicator (21). 
(The next section deals with Resulting 
Indicators in detail.) 



Explanations — Figure 17A, and Seguence 
Check as Specified in Figure 17E 



The first group of cards (Group 1: stock 
number 124) encompasses every type of card 
provided for in Figure 17E. It is correct 
in every respect, and no card-type 
sequence-check error stop will occur. 

Group_4 contains the minimum number and 
types of cards allowed; all others, are 
optional. No error stop occurs. 

Groups 2, 3, and_ 5 contain various errors, 
introduced deliberately to illustrate the 
effectiveness and limitations of the card- 
type sequence check based on specifications 
in ccls. 15-18: 

Group 2 (stock number 24 8) is headed_ by a 
Balance Forward card with stock number 258. 
No error stop occurs. The criteria of 
cols. 15-18 are met: the Balance Forward 
card is present, it follows a Customer 
Order card, and there is exactly one 
Balance Forward card. Cols. 15-18 specifi- 
cations do not cause checking of control- 
level fields. 

There are two Back Crder Summary cards 
in Group 2. An error stop occurs, because 
1 is specified in col. 17. 

A Stock Adjustment card is intermixed 
among Customer Order cards in Group 2. Our 
assumptions stated that Stock Adjustment 
cards may be located anywhere; they were 
coded alphabetic in cols. 15-16, and are 
not checked fcr position. Figure 17c pre- 
sents a method for allowing a card type 
(e.g., the Stock Adjustment cards) to occu- 
py any of several positions, and yet check- 
ing against its occupying any others, 
(Alternatively, specifying the Stock 
Adjustment cards to be in an OR relation- 
ship to Stock Receipt cards would check 
that they follow the Balance Forward card, 
or are airona or behind Stock Receipt 
cards . ) 
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One of the Customer Order cards in Group 
2 (stock number 548) does net belong in 
this group. The card-type seguence check 
will not detect this. 

In Grcup 2, an Order Return card is 
among the Customer Order cards, instead of 
being ahead of the first Back Order Summary 
card. This causes an error stop. 

Group 3 commences without a Balance Forward 
card. This is net detected by the card- 
type seguence check. The Customer Crder 
card at the frcnt of Grcup 3 acts as a con- 
tinuation of the Customer Order cards of 
Groiip 2. 

When the Balance Forward card of Gr cup 4 
is read, an error stop occurs because two 
Ealance Forward cards have been read conse- 
cutively, and 1 is specified in col. 17. 
Only for that reason is the errcnecus posi- 
tion of the Balance Forward card in Grcup 3 
detected. If the Balance Forward card in 
Grcup H were missing, neither its absence 
nor the erroneous position of the Ealance 
Forward card in Group 3 would be detected. 
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• Balance Forward 

■ Stock Adjustment 

■ Stock Receipt 

■ Stock Adjustment 
■Order Return 

Back Order Summary 

.Customer Order - 
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■ Customer Order - 
Type B 



Figure 17C. Seguence Checking cf Card 
Types within a File 



prou p 5 j.acics any 



ustcmer Order card 



An 



error step occurs when the Balance Forward 
card of Group 6 is read, because no Custom- 
er Order card preceded it. 



Explanations — Figure 17C 

Figure 17C presents a method of permitting 
an optional card type to appear in several 
(i.e., two, in this example) acceptable 
positions, yet signalling an error if it 
were to appear in any ether position. 
Otherwise it is identical with Figure 17B. 

Change the assumptions for Stock Adjust- 
ment cards to read: they may directly fol- 
low the Ealance Forward card and/or Stock 

By entering the specifications for Stock 
Adjustment cards as shown in lines 03 and 
07 — instead of with alphabetic code in 
cols. 15-16, as in Figure 17B, line 01 — 
presence of this card type is permitted in 
either or both of these positions, and 
limited to these two positions. 

The position of the Stcck Adjustment 
card in Group 2 of Figure 17A will now be 
signalled as erroneous. 

Note that this technigue requires 
assignment of different Seguence numbers 
(cols. 15-16) for the several permitted 
positions, but that the same card-type 
Resulting Indicator is assigned. The 
single Resulting Indicator number then 
always references that card type in calcu- 
lation or output specifications, regardless 
of the position where the card appeared. 

Nature of the Card-Type Seguence Check 

A brief explanation of the method the pro- 
gram follows to verify card-type seguence 
will further clarify the preceding example. 
It is also necessary to proper specifica- 
tion cf Record Identification Codes — the 
next section of the manual, which 
references this discussion. 

a. If all card types in a file have alpha- 
betic specifications in cols. 15-16, 
the program checks, as each card is 
read, for the first card type specified 
for the file just read, then the 
second, etc. — until a match is found, 
based on Record Identification Code (or 
absence of any identification 
specifications — see next section) , or 
until all specifications for card type 
have been exhausted without encounter- 
ing a match. (An error stop then 
occurs. ) 

b. If all card types in a file have numer- 
ic specifications in cols. 15-16, the 
program starts its check, as each next 
card is read, at the first card type 
that may legitimately have appeared 
next — it does not necessarily begin at 
the first specification line, except at 
the start of program execution. 
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If this does not match, it checks for 
the next card type specified, and so 
on, through the last card-type specifi- 
cation (for that file) in the input 
specifications, continuing in a circle 
up tc the first cne, etc. --until a 
match is found, or an error detected 

(illegal card-type sequence cr quanti- 
ty) . An error stops the system--except 
in the particular undefined-card-type 
situation described abcve (Warnings, 
item 2(a)) , when the search circle 

(loop) continues ad infinitum. 

(Note: Card types in an OB relation- 
ship are checked consecutively after 
the main line, until a match is fcund 
or the OB lines are exhausted.) 

If the specified card types are a com- 
bination of (a) and (b) above, the pro- 
gram first searches through the card- 



type specifications with alphabetic 
entries in cols. 15-16, as in (a) 
above. If no match is found, it 
ccntinues--as in (b) above — at the 
first card type with numeric specifica- 
tion in cols. 15-16 that may legiti- 
mately have appeared next. If this does 
not match, it continues in a circle of 
the card-type specifications with nu- 
meric entries in cols. 15-16, until a 
match is found or an error detected. 
(Eut see Warnings, item 2(a), above.) 

Note : When several or ail card types 
have alphabetic Sequence codes in cols. 
15-16, process time is minimized by 
recording the mcst-f reguently occurring 
type with alphabetic Seguence code 
first, the second most-common type 
next, etc. The program then makes the 
least number of attempts to match a 
card-type definition to cards read. 
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Note; 

1. Card-type number used is Resulting Indicator number in Figure 17E. Because Indicator 
21 is used twice, the Seguence number is shown in parentheses. 

2. The illustration after each error proceeds as though the error card did not exist 

(dotted line) — merely so that illustration can be continued. 
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Figure 1 9A 



No card-type sequence check is performed, 
since all types are defined as cpticnal. 
(In this particular illustration, all types 
are optional by virtue of alphatetic code 
in eels. 15-16; but the same applies tc 
numeric specifications with in ccl. 18.) 
Therefore, nc error stop occurs for any 
arrangement of legitimate card types, and 
the abserce cf card type E is net sig- 
nalled. (See Warnings, item 1(a), above.) 



An errcr stop occurs when the unidenti- 
fied card type is read, since all opticnal 
card types are coded alphabetic in cols. 
15-16. (See War ning s, item 2(b), abeve.) 

Figure 1 9B 

The duplicate of card type A (with number 
123) is net detected. All other types are 
optional and the program dees net knew that 
the two cards do not belong to two dif- 
ferent groups. (See Warnings, item 1 (b) , 
above.) 

The fact that a type-C card precedes 
types A and E is net signalled, because 
types with alphabetic specification in 
cols. 15-16 may appear in any relative 
positions. 
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Figure 19C. Using same card arrangement as 
Figure 19B, but different 
specificatiens. 

An error stop occurs at the very begin- 
ning, because a type-C card is read tefcre 
a type A. 

Nc step occurs for the duplicate type-A 
cards: the prcgram does net know that they 
do not represent two groups, since presence 
cf type-C cards is optional. (See Warn- 
ings, item 1(c), above.) 

An errcr stop occurs when any of the 
Type-B cards are read, because they are 
undef ined--and there is at least one ncn- 
opticnal card type specified. (See Warn- 
ings , iteir 2(b), above.) 



The absence of the type-A card for aroup 
135 is net detected because, as far as the 
program is concerned, the type-C card num- 
bered 135 could belcng to group 123. (See 
Warni ngs, item 1(c), above.) 
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•When the undefined card type (group 186) 
is read, the program goes into a perpetual 
loop. (See Warnings, item 2(a), above.) 

The entries in line 04 of the specifica- 
tions are included only tc illustrate that 
no card-type Sequence specifications are 
entered for an AND line. 



Card-Type Eefiniticn — Cols. 19-20, 23-27, 
30-34, 37-41 






If different input card types are to be 
processed differently, cr are to be checked 
for card-type sequence (see cols. 15-18), 
they must cf course be distinguished for 
the program. The distinguishing entries in 
colS: 19—4 1 are made in the card— type iden- 
tification lines, above the field- 
definition lines. 

Columns 19-20 provide for the entry of a 
distinguishing reference code, termed a 
card-type Resulting Indicator, for each 
card type. The distincticn between card 
types is based on the presence or absence 
of specific punches in each type of card, 
as designated by the programmer by entries 
in cols. 23-41. 

The Resulting Indicator associated ty 
the programmer with each card type makes it 
easy to condition calculation and output 
specifications to be executed only for cer- 
tain card types (or predetermined sequences 
of card types) . 

When a new card has been read, the prc- 
gram checks the Record Identification Codes 
(cols. 23-41) of successive card-type iden- 
tificaticn lines, until it finds a match 



between the specifications 



cols 



) — t i 



and the punches in the corresponding 
columns of the card just read. Tt then 
assigns the card-type Resulting Indicator 
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that appears in eels. 19-2C of the line 
whose ccl. 23-41 entries match the card. 
(For the time in the cycle when the pre- 
vious card's indicator turns off, and the 
new card's indicator turns en, see Figure 
£ : I J?iL- Erog ram Logi c . ) 

Two important related points should be 
noted : 

1. The program does not necessarily tegin 
each time at tre first card type 
entered in the input specif icatiens, in 
its attempt to match the punches in the 
new card just read against the Record 
Identification Cedes. 

The preceding secticn headed Nature 
of the Card-Type S equence Check , and 
Figure 18, explain the starting point 
of the cemparisen and the order in 
which it is carried cut. It is 
affected by the Seguence entries in 
cols. 15-16. 

2. Once a match has been found between 
punches in the card just read and 
Record Identification Code entries 
(.cols. 23-41, including pcssible AND 
lines--see belcw) , nc further card-type 
identification lines are searched. 



problem. (The possible entries in 
eels. 19-41, and their significance, 
are fully described in the next two 
sections. ) 

Explanation of Figure 20 

a. Assume that only the Becord Identifica- 
ticn Codes in field 1 cf Figure 20 were 
entered (cols. 23-27) — ignore cols. 30- 
41. Also assume that all three card 
types in Figure 2C contain a 1 in col. 
80; that the second card type also has 
a 1 in eel. 78; and that the third card 
type contains a 2 in col. 78, besides 
the 1 in col. 8C. The following 
results occur: 

If the program begins its attempt to 
match the punches in the new card just 
read against the specifications in 
Record Identification Code line 01, the 
card will always match and indicator 1 
is always assigned. No attempt is made 
to check for punches in col. 78, 
because a match has been fcund. 

If the program beqins its attempt to 
match with the entries in line 03, any 
of the three card types is correctly 
identified . 



Therefore, unless card-type identi- 
fication specifications in eels. 23-41 
are mutually exclusive fcr different 
card types, an undesired identif icaticn 
may be made. Figure 20 illustrates the 



If the program begins its attempt to 
match with the entries in line 05, a 
card of the third type is correctly 
identified, and indicator 05 assigned 
thereto. A card of either the first 
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Figure 20. Making Card-Type Identifications Mutually Exclusive 
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b. 



or second type is identified as the 
first type, and assigned indicator 01. 
This occurs because, if the card dees 
not contain a 2 in ccl. 78, it is next 
tested for a 1 in ccl. 8C. This ccrdi- 
ticn is satisfied by cards of all three 
types, and a match therefore occurs as 
soon as line 01 specifications are 
compared . 

Assume all the entries shown in Figure 
20. All three card types are then 
always correctly identified, because 
cards with 1 or 2 in ccl. 78 are 



; A V^-L U>-1< 



, A ^ A -P-r-^, 
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tions fcr cards cf the first type. 



ne su _l u in g j.Huicd lOl' 
Indicator) 



:ols. 19-2C 



-Type 



Any cf the RPG indicators except L0 (see 
earlier section, Indicators) may be 
assigned by the programmer to each card 
type, and entered in cols. 19-20 in the 
first input specification line for that 
card type. The entries in cols. 23-41 
associate the indicator in cols. 1S-2C with 
a particular card-type. 

The object program can then be directed, 
by use cf the indicator cede, to execute 
certain calculation and/or output specifi- 
cations enly when processing that card 
type — or, if desired, only when processing 
a card type ethe r than that cne. 

Normally, any of the indicators 01-99 
are assigned as card-type Resulting Indica- 
tors. The indicator on from the previous 
card is set off by the program befcre the 
indicator for the new card is set on. 
Thus, there is enly cne card-type Resulting 
Indicator on at any cne time, if only indi- 
cators 01-99 (or H1, H2--see below) are 
used for card-type identification. 

It is permissible to assign the same 
indicator to mere than one card type. The 
same indicator, cr tve different indica- 
tors, also may be assigned tc two card 
types in an CB relationship (see below). 

Indicators H1 and H2 are suitable card- 
type Resulting Indicators tc represent an 
erroneous card type. The system then halts 
after the card has been completely pro- 
cessed and befcre the next card is pro- 
cessed. (It can be restarted by depressing 
the CPU START key twice.) 

Indicators may be assigned tc the 
various card types in any crder; numeric 
indicators (01-99) need net be in ascending 
sequence for successive card-type identifi- 
cation lines. 

It is permissible net tc assign any 
Resulting Indicator to a card type (i.e.. 
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illustrated in preceding sections, some 
dealing with other aspects of RPG (Figures 
5, 9, 12, 17, 19, and 20). Further 
examples specific tc indicators and card- 
type identification follow discussion of 
cols. 23-41. 

Note: Card-type Resulting Indicators other 
than 01-99, H1 and H2 should net be 
assigned without a complete understanding 
of the sections P ro g ram Log ic Flow , Indica- 
tors , and Indicator Hier ar chy, in the 
chapter Prog ramm ing for RPG — General 
Informa ti on . 

Record Identification Codes — Cols. 23-27, 
30-34, 37-41 (Card-Type Identification) 

These fields provide for the identification 
of different card types on the basis of 
specific punches — or the absence of specif- 
ic punches — in designated card columns. 

When the punches in a card meet the cri- 
teria established in these fields for a 
card type, the indicator (if any) assigned 
{cols. 19-20) to that card type turns on 
before total-time processing, and remains 
on through detail-time processing cf that 
card. During that time, all other card- 
type Resulting Indicators are off. 



Exceptions : More than one card- type 
Resulting Indicator may be on during part 
or all of the processinq of a card if 

1. An indicator is assigned as a card-type 
Resulting Indicator that is not stan- 
dard for that purpose (such as ME) ; or 

2. The same indicator is assigned as both 

a card-type Resultina Indicator, and as 
Field Indicator and/or calculation 
Resulting Indicator; cr 

3. An indicator is assigned as a card-type 
Eesulting Indicator, and the same indi- 
cator is turned en by a SFTCN instruc- 
tion in the calculation specifications. 

Similarly, although a Eesulting Indica- 
tor may be assigned to every card type, all 
of them could be off for part or all of the 
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processing of a card for the above reasons. 
(In item 3, abcve, SETOF would then apply, 
instead cf SETCN.) 

See Program Logic Flow, Indicators, and 
Indicator Hierarchy . 
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Normally, identif icaticn cf 
must be made dependent en the 
absence cf a character in a si 
column or on a ccmbinaticn of 
several card columns. Fcr ccn 
space is provided on one line 
such criteria. If entries are 
or three sets of ecluftns, ttes 
three criteria are in a logica 
relationship; all of the state 
43-p.e ci ii e d. --presence- cr ab.se jice 
punches) must be met fcr the c 
considered of that type. If m 
three criteria in a logical AN 
relationship are required, add 
may fcllcv the first card-type 
identification line. Each add 
requires the wcrd AND in eels, 
to three Record Identification 
are again available in each AN 
Resulting Indicator (eels. 19 
left blank in AND lines. 
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It is also possible tc place any number 
of card-type criteria into an inclusive CF 
relationship; i.e., the card type is 
considered identified if one or more of the 
criteria are satisfied. Each CF criterion 
is then specified en a separate card-type 
identification line, with the word OR in 
cols. 14-15. The card-type Resulting 
Indicator number need not be repeated in 
the CR lines (but it may be) . If no 
Resulting Indicator is specified in an CR 
line, the program assumes the indicator 
from the last preceding line fcr which a 
Resulting Indicator was specified (or it 
assumes that nc indicator is assigned, if 



none of the identification lines fcr that 
card type has an indicator specified) . 

AND and CR relationships may both exist 
for one card type. Alsc, by using AND with 
negation of a criterion, toaether with an 
CR line, exclusive CB conditions can he 
specified. 

There is no limit (other than the number 
of columns in a card, and core storage 
capacity) to the number of card-column 
characters that may be used as criteria in 
an AND or OR relationship tc identify a 
card type. 

There is a situation in which it is 
desirable to treat two or more diff erent 
card types in an OR relationship. 
Different card-type Resulting Indicators 
are then assigned in the main line and the 
OR line(s). This application is described 
under Field-Record_Relation (cols. 63-64). 
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The kinds of entries that can be made in 
each- ef the three Re-eerd Identif ieatien- 
Code fields are identical. Therefore, only 
the first field (cols. 23-27) is described 
in detail. (Ccls. 21-22, 28-29, and 35-36 
do net apply to Model 20 card RPG. They 
may be left blank cr coded with zeros.) 
Illustrations of all cemmen types cf 
entries for card-type identification fol- 
low. (Earlier illustrations appear in 
Figures 5, 9, 12, 17, 19, and 20.) 

Position (cols. 23-24) : The number of the 

card column (right- justified) to be checked 
for the identifying code punch. A leading 
(tens-position) zerc need not be recorded. 

Character (col. 27) : The character to be 

matched against the contents of the card 
column specified in cols. 23-24. Any of 
the 256 EECEIC characters, including blank, 
is a valid entry. (But see C/Z/D , below.) 

Not (col. 25) : 

t = The criterion is satisfied if the spec- 
ified character (as per col. 27) 
appears in the dssicrnated (cols. 23-24) 
card column. 
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a - me criterion is sauisnea n. xne spec- 
ified character dees not appear in the 
designated card column. 

C/Z/D (ccl . 26) : The programmer specifies 

here whether the entire character in ccl. 
27 is to be matched against the entire 
character in the card eclumn, cr only the 
digit cr the zone portions of both are to 
be considered. For complete flexibility in 
the use of the Z or D specif icaticn in col. 
26, reference will be made tc the EECDIC 
table (Appendix D, Figure D1). Examples 
'Figures 21 and 22^ follow the details 
below. 

C = Character. 

The entire character specified in col, 
27 is cempared *iith the entire 
character in the data-card eclumn. Any 
of the 256 EBCEIC characters may be 
used. 

Unless it is necessary to specify D 
or Z (see below) , to eliminate the zone 
cr digit portion of a character, C 
should be entered in ccl. 26. This 
conserves core storage and program 
execution time. 

Z = Zone. 

The zone portion of the character spec- 
ified in ccl. 27 is cempared with the 
zene portion of the character in the 
designated (col, 23-24) data-card 
eclumn. 

Considering first crly the most ccm- 
men cemparisens: 

12-zcne: If S (12-punch), any cne of 
the letters A through I, character u, 
or any cne of the remaining six charac- 
ters in the IBCDIC-table eclumn 
labelled C is specified in col. 27, it 
will match as egual in zene to any of 
these 17 characters in the data-card 
column (specified in eels. 23-24) . Any 
ether characters in the data-card 
column are treated as unmatched. 

1 1-zc ne: If - (11-punch), any cne of 
the letters J - R, character 0, cr any 
one of the remaining six characters in 
the EECETC-table eclumn labelled E is 
specified in ccl. 27, it will match as 
equal in zone to any of these 17 
characters in the data-card eclumn 
(specified in eels. 23-24) . Any other 
characters in the data-card column are 
treated as unmatched. 

No-zcne : If col. 27 is blank, ccntains 
any cne of the digits C-9, or contains 
any cne of the remaining six characters 
in tte EECDIC-table eclumn labelled F, 
it will match as egual in zene to any 



Or xnese i/ Cnaraciers (actually, id 
characters and blank) in the data-card 
eclumn (specified in cols. 23-24) . Any 
ether characters in the data-card 
eclumn are treated as unmatched. 
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more broadly, and general- 
full EBCDIC (see Appendix 
) : Any one of the 256 
cters may be specified in 

will match "egual" in zone 
card character that appears 
column of the EECDIC table, 
ched tc an v other data— card 
ith three exceptions: 



If & (12-punch) or any character 
in table eclumn C is specified in 
col. 27, & is considered to be part 
of EBCDIC-table eclumn labelled C 
(only) . However, if one of the 
characters in the EBCDIC-table 
column labelled 5 is specified, 
other than & (12-punch), then & in 
the data card matches only any 
character shown in that column. 



If - (11- 

in table ccl 
col. 27, - ( 
to be part c 
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of the chara 
table column 
fied, other 
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punch) or any character 
umn D is specified in 
11-punch) is considered 
f EBCDIC-table column 
only) . However, if one 
cters in the EECEIC- 

labelled 6 is speci- 
than - (11-punch), then 
in the data card 
any cf the characters 
t column. 



If column 27 is left blank, or 
any character in table-cclumn F is 
specified, ± is considered to be 
part of EBCEIC-table column 
labelled F (only) . However, if one 
of the characters in the EECETC- 
table column labelled 4 is speci- 
fied, other than ±, then t> in the 
data card matches only any charac- 
ter shown in that column. 



D = Digit. 

The digit portion of the character spec- 
ified in col. 27 is compared with the 
digit portion of the character in the 
designated (cols. 23-24) data-card 
column. Any of the 256 EBCDIC charac- 
ters (including blank) may be specified 
in ccl. 27. 

Any character in col. 27 will match 
"egual" in digit to any data-card 
character that appears in the same row 
of the EECDIC chart. 

Figure 21 gives examples of C, Z, and D 
specifications, and the results of compar- 
ing various characters. 
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Col. 26 



Col. 27 



S 
& 
t 
5 
$ 
11-9-8-5 



A 
H 
H 

12-0-9-8-6 
& (12-punch) 

& (12-punch) 

$ (11-8-3) 

- (11-punch) 

J 
11-0 
11-0 
12-11-9-8-2 



- (11-punch) 
% (0-8-4) 

6 (12-punch) 
(11-0) 

2 

15 

8 

12-8-1 

15 

S 




Contents of 
Data-Card 
Column 
being 
Compared 
(Column 
Specified in 
Cols. 23-24) 



S 
& 
T 
5 
$ 
11-9-8-5 



0" (12-0) 

5 (12-punch) 

F 
12-0-9-8-5 

$ (11-8-3) 

6 (12-punch) 

H 

R 

P 

12-11-9-8-7 

- (11-punch) 

- (11-punch) 
% (0-8-4) 

- (11-punch) 

- (1 1-punch) 

- (1 1-punch) 

4 



15 

12-8-1 

* 

S 
15 

T 



Result of 

Comparing 

Specified 

Character 

with 

Character 

Data-Card 

Column 



Hatch 
Hatch 
Hatch 
Hatch 
Hatch 
Hatch 



Hatch 
Hatch 
Hatch 

Hatch 
Hatch 

Non-match 

Hatch 

Hatch 

Hatch 
Hatch 
Hatch 
Hatch 

Match 

Non-match 

Match 

Non-match 

Match 

Match 

Match 

Match 

Non-match 

Match 

Non-match 
Non-match 
Ncn-match 



Comments 



In each case, any other character in the 
designated data-card column would result in 
a non-match: C in ccl. 26 causes compari- 
son of the entire character. 



Both have same zone — EBCDIC-table column C 
Both in EECDIC-table column C 
When a character in column C is specified, 
(&) is assigned to column C 
Both in EBCDIC-table column C 
When (5) specified, it is assigned to 
EBCDIC-table column C 

When (&) specified, it is assigned to 
EBCDIC-table column C - not 5 
When any character, except (S) , in EBCDIC- 
table column 5 is specified, (&) remains in 
column 5 

When (-) is specified, it is assigned to 
EBCDIC-table column D 
Both in EECDIC-table column D 
Both in EECDIC-table column D 
Both in EBCDIC-table column D 
When a character in column D is specified, 
(-) is assigned to column D 
When a character in column D is specified, 
(-) is assigned to column D 
When (-) specified, it is assigned to 
EBCDIC-table column E - not 6 
When any character, except (-) , in EBCDIC- 
ITabTe column 6 is ; specif ied , f-} felatns"in 
column 6 

Zone punches in different EBCDIC-table 
columns 

When a character in column D is specified, 
(-) is assigned to column D 
Same zone (no-zone) , because in same 
EBCDIC-table column 

When 15 specified, it is assigned to EBCDIC- 
table column F (nc-zcne) 

When a character in column F is specified, 
"b is assigned to column F 

When £ specified, it is assigned to EECDIC- 
table column F - not 4 

When any character, except b, in EECDIC- 
table column 4 is specified, 15 remains in 
column 4 

When 15 specified, it is assigned to column 
F, and does not match zone in column E 
Zone in column E does not match zone in 
EBCDIC-table column 4 

Zone of column F (no-zone) does not match 
zone of column E 






Figure 2 1 (part I cf II). Results of Comparing Various Data-Card and Record- 
Identif ication-Ccde Characters, with Specification of C, Z, or D 
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Figure 21 (part II of II). Results cf Comparing Various Data-Card and Record- 
Identif ication-Ccde Characters, with Specification of C, Z, or D 
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a. The card type is assigned indicator 05 
when col. 80 contains an & (12-punch), 
any cf the letters A - I, or any of the 
remaining seven characters (12-0, and 
12-C-9-8-2 through 12-C-S-8-7) in the 



column labelled C in the EBCDIC table 
(see Appendix D, Figure D1). 



Indicator 10 is assigned to a card that 
meets all of these five conditions: 

1. Col. 1 contains a 12-punch, and no 
ether punch (the specification is 
C, not Z) ; and 

2. Ccl. 80 does not contain a 
12-punch, or any of the letters A - 
I, or any of the remaining seven 
characters in column C of the 
EBCDIC table; and 

3. Col. 79 contains cne of the 16 
characters in column 5 of the 
EECDIC table. (Note that a 
12-punch is cne of these 16 
characters.) ; and 

4. Col. 75 does not contain any of the 
characters in row 4 of the EBCDIC 
table (e.g.: 4, 0, M, D, 12-11-0-4 
etc. , to 12-9-4) ; and 
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Figure 22. Examples of Card-Type Identification Entries 



Col. 5 contains cne of the 16 
characters in column E of the 
EECDIC table (e.g.: 0-8-2, 
11-0-9-1, S, T, etc., to 
11-C-9-8-7). Note that no match 
cccurs if the data card is blank, 
cr punched zero cnly (i.e., the 
unit record Hollerith coffe ~0-zcne 
for letters S - Z does net apply) , 



This example also illustrates AND 
lines. Note also that a leading may 
te omitted from card-cclumn number 
(e.g., col. 1) or recorded (e.g., col. 
05) . 

Indicator 08 is assigned to a card that 
meets either of these criteria: 

1. Col. 1 contains cne of the 
characters in row B of the EBCDIC 
table (e.g.: $, 12-11-0-9-8-3, 
comma, 12-9-8-3, etc.) ; cr 

2. Col. 1 contains a 4 (and no ether 
punch) and col. 5 certains any 
punch (i.e., is net blank). 



This example also illustrates an 
(inclusive) OR relation, with either of 
twe card types assigned the same 
Resulting Indicator. It also shows the 
combination of an AND relationship (two 
criteria in the OR line) with the OR 
relationship. 



d. Indicator 25 is assigned when col. 1 of 
a card contains an 11-punch, any of the 
characters J - R, or any of the remain- 
ing seven characters in column D of the 
EBCDIC table (11-0, 12-11-9-8-2, etc.). 

Indicator 26 is assigned when ccl. 5 
is blank, contains any of the digits 
0-9, or contains any of the remaining 
six characters in column F of the 

EECDIC table (12-11-0-9-8-2, etc.) 

The value of this type of OR 
relationship — where two card types are 
assigned different indicators, yet 
placed in an OR relationship — will 
become clear when Field-Record Relation 
(eels. 63-64 in the input specifica- 
tions) is discussed later. 
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e. Indicator 12 is assigned when either 
cne cf two sets cf criteria is met: 



1. Ccl. 1 contains a 1 (and no ether 
punch) and ccl, 75 dees net contain 
a 2 alone (ether characters that 
incorporate a 2-punch are per- 
mitted, since the specification in 
col. 33 is C for an exact character 
match) ; or 



Col. 7 5 contains a 2 (and no other 
punch) and ccl. 1 dees net contain 
a 1 alone. 



This illustrates an exclusive OE 
relationship: the criteria for indica- 
tor 12 are satisfied if ei ther of two 
conditions applies (1 in ccl. 1 or 2 in 
col. 75) , but not if bcth apply. 

This assumes that the card is wrong if 
both of the conditions occur that were 
handled in entry (e) as mutually 
exclusive. 
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If the card contains both a 1 
(alone) in ccl. 1 and a 2 (alone) in 
col. 75, indicator H1 is assigned. 
Unless the H1 (or H2) indicator is 
reset by a programmer's specification 
before then, the system halts after the 
card has been completely processed. 

The H1 indicator may be used like 
any ether indicator. It might logical- 
ly be utilized to condition calculation 
and output specifications not to be 
executed when H1 is en (by specifying 
NH1 in the conditioning indicator 
fields) . 

Throughout, in Figure 22, notice that — 
while numbered Seguence entries (in eels. 
15-16) mtst be in ascending-number order, 
and must start with 01 — Resulting Indica- 
tors can be assigned in any order. 

Previous sections stated that, when an 
input card of an undefined type is read, 
either an error step or a perpetual program 
loop (see Warnings, item 2(a), above) 
results. To avoid a perpetual program loop 
or an error stop which requires card handl- 
ing for restart, and to facilitate bypas- 
sing of calculation and output specifica- 
tions for invalid cards, the user should 
make provision for invalid cards in the 
card-type definition specifications (cols. 
19-41) for each file. Figure 23 illus- 
trates three approaches. For simplicity, 
only two legitimate card types are used in 
each example; and the assumption is made 
that one type contains a 1 (only) in ccl. 
5, and the other a 2 (enly) . 



Figure 23. Examples of Protection Aqainst 
Undefined Card Type 
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For illustrative purposes, even the 
legitimate card types were specified as 
optional (0 in ccl. 18), which negates the 
card-type seguence check. However, if they 
were not designated as optional — and the 
entry for invalid card types has a numeric 
Seguence specification (cols. 15-16), as 
shown--a stop for card-type seguence error 
could occur on an invalid card, even though 
we chose to write the specifications for 
invalid cards on the first line. (Whether 
the card-type seguence-error stop or the 
invalid-card-type halt (specification line 
01) would occur on an invalid card is 
dependent on the particular specification 
line which the program tests first aqainst 
a card just read — see Mature of the Card- 
Type Seguen ce Chec k. In example 1, either 

specification line 01 or line 03 could be 
the first one compared against a data 
card.) A card-type seguence error stop 
— in contrast to the H1 halt — is more corn- 
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plex to restart, does not provide a unique 
indicator to condition executicn cf speci- 
fications fcr invalid card types, and does 
not offer a single methcd tc stacker-select 
such a card (with or without stopping) . 

Exa m ple 2 shows an effective methcd of 
achieving the same flexible result as in 
Example 1, yet requiring a specific (ncn- 
cpticnal) card-type seguence fcr the valid 
card types. Card-type specifications with 
alphatetic Sequence entries (eels. 15-16) 
are always tested before those with numeric 
Sequence specifications (see Nature of the 
Card-Type Sequence Check) . Thus, in this 
example, the validity of the card type is 
always checked first — the user is assured 
of indicator 99 for an invalid card type, 
and can stacker-select invalid cards by a 
simple entry in specification line 07. 

Indicator 99 does not cause a systeir 
step; but otherwise it may be tsed like the 
H1 indicator in Example 1 to condition the 
execution of specifications. If a halt 
after an invalid card is desired, H1 cr H2 
can, cf course, be assigned in place of a 
numeric indicator like 9S. 

Example_3 takes advantage cf the fact that 
card-type identification specif icatiens 
with alphabetic Seguence designation (eels. 
15-16) are always tested in the order in 
which they are entered (see Nature_of_the 
Card -Type Seg uenc e Check) . The example, 
however, assumes that no card-type seguence 
check is required. 

Specification line 17 will be tested 
against a data card only when neither the 
specif icatiens in line 13 nor those in line 
15 matched the data card. Since nc Record 
Identification Cedes appear in eels. 23-41 
of line 17, it will always match against a 
data card when tested. Thus, whenever 
neither line 13 nor line 15 matches the 
data care, line 17 will be tested and it 
will match — therefore, all invalid cards 
will be associated with line 17. 

No Resulting Indicator (cols. 19-20 
blank) was assigned to invalid card types, 
merely tc illustrate another possible 
approach (any indicator, including H 1 cr 
H2, could have been assigned) . If specifi- 
cations that are to be executed fcr valid 
card types (cr before the first card) are 
all conditioned by indicators which are off 
for invalid card types, then the absence of 
an indicator during processing cf invalid 
types suppresses execution cf such 
specifications. 

Example 3 illustrates a convenient tech- 
nique fcr identifying invalid card types 
when specifications for invalid types would 
be complex. For example: If there are 
several valid card types, each with 



numerous AND and/or OR relations, it could 
become involved to specify the Record Iden- 
tification Cedes for an invalid type. Such 
specif icatiens would reguire the negation 
of all possible valid card-identification 
punch combinations. The limitation of the 
approach in Example 3 is its requirement 
that the valid cards cannot be checked for 
card type seguence. 

Note that, with this method, the entry 
for the invalid type must always be last 
for that file — if it is first, every card 
will be treated as invalid, since there are 
no specifications in cols. 23-41 to exclude 
valid cards frcm matching the line. 

The stacker-select entry in col. 42 of 
all three examples is explained below 
(under S tacker_Sel.ec tj_ . 

Records in an CR relationship 

Records in an OR relationship- must be in 
the same file. The three types cf CR rela- 
tionships are described belcw. 

1. Identical Fields and Similar 
Processing: 

The input fields of several card types 
are in the same columns, have the same 
format, and identical field names 
apply. No distinction between the card 
types is required in the field 
description entries — each field is 
described only ence — and the several 
card types are treated throughout as 
though they were identical, with one 
possible exception available: they 

different stackers by entries in 
ccl. 42 of the input specifications (if 
no output operation is performed on 
them) . Eecause the fields for two or 
mere card types are described enly 
once, cere storage space is saved. 

The Besulting Indicator in cols. 
19-20 cf the main card-type identifica- 
tion line applies also to the OR 
line (s) where no Resulting Indicator is 
entered; alternatively, the same 
Resulting Indicator may be repeated in 
the CR line (s) . 

This type of CR relationship was 
already illustrated in Fiqure 22: 
lines 06 and 07, and lines 12 and 13. 
(A different stacker could have been 
specified in ccl. 42 for the two card 
types in an OR relationship.) 

2. Identical Fields but Different 
Processing: 

Two or more card-types differ only in 
their Record Identification Cedes 
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Different Resulting Indicators in 
cols. 19-20 are assigned to the card- 
type specification lines in an OR rela- 
tionship, to permit distinction between 
the card types in the calculation and/ 
or output-format specifications. 



Figure 17B, lines 12 and 13; Figure 
17C, lines 13 and 14; and Figure 22, 
lines 09 and 10 represent this kind of 
OR relationship if cols. 63-64 of the 
field description lines (not shown) are 
blank. 



3. Some Identical and Some Different 
Fields for Different Card Types: 

See Field-Record Relation, below. 



OR Relationships are further illustrated in 
Figure 26, below. 
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Note: In the case of the IBM 2520 Card 



Punch or Read-Punch, cards with punch 
errors are automatically directed to stack- 
er 2 — the ncn-normal stacker — by the 
system. 
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•Figure 24. Summary of Stacker-Select Spec- 
ifications for Multi-Stacker 
Card I/O Devices 

Rules for Stacker Selection 

Output-file cards can only be stacker- 
selected in the output-format 
specifications. 
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Specifications. ) 



Not e: It is also possible to perform 
stacker selection on input-file cards, 
based on file matching and/or calculation 
results, by means of the EXIT operation 
code and BAL subroutines (see Programming 
Tips , Appendix E) . 
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Combined-file cards may he selected in the 
i'nput'.:-s'pecif ications — when selection can be 
,has.e3"on card type alone — cr in the output- 
format specifications. It is permissible 
to select some card types within the file 
in the input specifications, and others in 
the output-format specifications. The cri- 
teria to be applied are: 



1. 



2. 



3. 



A card type must not have stacker- 
select instructions in both the input 
and output-format specifications. 



unching and/ 

performed on 
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fied in the 
output opera- 
the output is 
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If stacker selection is to be based on 
the results of calculation specifica- 
tions, or on the result of matching 
between files (MR indicator) , it must 
be designated in the output 
specifications. 




4. 



While not necessary, it is 
that a stacker-selection s 
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Note ; When stacker 5 is designated, but 
the I/O device referred to is the 2560 HFCM 
Model A2 , the card is directed to stacker 
4 . 



AND Lines 



When the number of Record Identification 
Codes requires AND lines, any Stacker- 
Select entry must be in the main (first) 
line — never in an AND line. 

OR Lines 

Stacker-selection is independent for the 
main line and each OR line, just as for 
different card-type identification lines. 



To amplify: 

If no Stacker- Select entry is made in 
the CR line, the card type enters the 
normal stacker, regardless of the 
stacker for the card type defined in 
the main line above the OR line. 

The card type in the OR line may have a 
stacker-select specification different 
from that in the main line; or the 
stacker-select column in the main line 
could be blank, but the OR line could 
have a stacker specification; or both 
could be blank. 

The rules for combined-file card types 
apply as though OR lines defined total- 
ly separate card types. 

However, if the main line and the OR 
line are not assigned separate card- 
type Resulting Indicators, nor is any 
distinguishing indicator assigned else- 
where — and one specification line (say, 
the main line) is designated as an 
input type only (by a stacker-select 
entry in the input specifications) and 
the other line (say, the OR line) is 
designated as a combined type that is 
to receive output (by virtue of the 
absence xrt an input stra elTe'r -select "' 
entry) — then output could be into the 
following, rather than the relevant, 
card. 



FIELD DESCRIPTIONS 

Field descriptions are requir 
field of an input card that i 
in the application (i.e., as 
calculations, as Control-Leve 
Matching Field, to set Field 
to provide data for output) . 
description is entered in the 
fications for a card field th 
solely to receive output data 
input card-type field that is 
the application. (Entries fo 
needed for data input waste c 
space and process time.) 



ed for each 
s to be used 
data field for 
1 field, as 
Indicators, or 

No field 

input speci- 
at serves 
, nor for an 

ignored in 
r fields not 
ore storage 



A separate line is used for each field 
description. Field descriptions for each 
card type begin on the line immediately 
below the line describing the card type. 
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If there are several lines describinq cne 
card type (AND lines) cr related card types 
(OE lines), field descripticns begin imme- 
diately telow the last of such card-type 
identification lines. The file and card- 
type identification area (eels. 7-42) must 
be left fclank in field description lines. 



editina operations are to be performed upon 
it — input in packed format saves the pro- 
cessing time for packing, and core storage 
for the packing routine. 



Input fields are tested for setting of 
Field Indicators, and transferred to the 
internal process area, in the seguence in 
which they are entered. This need concern 
the user enly when unconventional assign- 
ment of indicators, or multiple assignment 
of the same indicators, is involved. 



If the application dees net utilize any 
data from fields of a card type, nc field 
description is required. This cculd be the 
case, for instance, when the only operation 
performed for a card type is stacker selec- 
tion based on card type. 

Packed — Ccl. 43 

leave col. 43 blank for normal (unpacked) 
input data. 

Enter the letter P in ccl. 43 if the 
input data is (already) in packed-decimal 
format. 

If the same input field appears more 
than once in the input specifications, with 
the same name, that input field must always 
or never be specified as in packed format 
(P in col. 43) — i.e., it cannot be desig- 
nated as packed input for cne card type and 
unpacked fcr another, with the same field 
name . 
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An input field specified as Packed (P in 
col. 43) is always considered by the pro- 
gram to be numeric; a specification must 
therefore be entered for such a field in 
Decimal Pcsiticns (col. 52) — see below. 

Maximum field length for a packed input 
field is 8 columns (which corresponds to 15 
digits, and sign) . 

In input specifications, Field Location 
(col. 46-47 and 50-51) must reflect the 
actual columns that contain the field in 
the input data card--not the number of 
digits these columns represent. Decimal 
Positions (col. 52) must reflect the number 
of digits — not the number of columns — to 
the right of the decimal point. 

In calculaticn specifications, the field 
size must be considered exactly large 
enough to accommodate the same number of 
digits (and sign) in unpacked format. If n 
represents the number of card columns of 
the packed input field, the length of the 
field in calculation specifications becomes 
2n-1. This also applies to output-format 
specifications fcr packed input fields, 
unless "Packed Field" is specified in the 
cutput-f crmat specifications, too. 

Input fields designated as packed (P in 
col. 43) cannot be used with Control-Level 
(cols. 59-60) or Patching-Fields (cols. 
61-62) entries. The equivalent effect can. 
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however, be achieved by a second field- 
descripticn entry for the same input field, 
with a different field name, leaving ccl. 
13 blank and treating the field this time 
as alphameric (no entry in ccl. 52). If 
Hatching Fields (eels. 6 1-62) are used with 
this second entry, the user must realize 
that the sequencing operations are then 
based on the field ccntents as one EBCDIC 
character per column — not twe digits per 
column. Appendix E explains the relative 
seguence pesitien of each cf the 256 EECDIC 
characters. Note that, if the second 
definition of the same field (with a dif- 
ferent field name) is used sclelj for 
Control-Level or Matching-Fields purposes, 
a diagnostic warning message ("unreferenced 
field names") is printed during generation 
of the object program; but generation pro- 
ceeds prcperly. 



To — Cols. 50-51 

The number of the rightmost (low-order) 
card column of the input field. The entry 
must be right- justified ; a leading zero may 
be omitted . 

Note: A single-column field is defined by 
the same column number in cols. 46-47 and 
50-51. 

Decimal Positions — Col . 5 2 

For alphameric fields, leave col. 52 blank. 

An entry (0-9) in this column defines 
the associated field (as named in cols. 
53-58) as a numeric field. An input field 
must be defined as numeric in the input 
specifications if any one or more of the 
following statements apply: 



Note : While, as discussed above, Packed 
format is available as a cempaction techni- 
que fcr numeric input (and/cr output) data, 
column-binary (card-image) input (or out- 
put) cannot be used with this RPG. 



Field Location — Cols. 46-47 and 50-51 
(Cols. 44-45 and 48-49 are net used in 
Model 20 card RPG — they may be left blank 
or ceded with zeros.) 

These columns define the location of each 
input field in the card. 

The maximum length of an input field is: 

a. For a standard (unpacked) numeric 
field: 15 columns. 

F_i.eld._s, tc___J_.„£.....iise.d xn-wi-me-rie ee«pare 

cr arithmetic operations, and/or to be 
edited or zero-suppressed in output 
specifications, must be defined as 
numeric--by an entry in Decimal Posi- 
tions (ccl. 52) . 



b. For a packed field: 
Pa cked , above.) 



8 eclumns. (See 



c. For an alphameric field: Nc limit, 

ether than data input-card capacity (80 
columns) . 

Input fields may be listed in any order, 
except when Control Levels are specified 
(see cols. 59-60, below) or Field-Record 
delation is involved (see eels. 63-64). 

It is permissible for input-field card 
columns tc overlap, if the fields are given 
different names. 

From — Cols. 46-47 



1. The input field is in packed format (P 
in col. 43) --see Packe d, above. 

2. The field will be used as a factor or 
result field in numeric compare or 
arithmetic operations in the calcula- 
ticn specifications. Arithmetic opera- 
tions comprise: additicn, subtraction, 
multiplication, and division — i.e., the 
operation codes ADD, Z-ADD, SUE, Z-SUB, 
MULT, DIV, MVR. (An input field cannot 
be defined as numeric — i.e., have Deci- 
mal Positions specified — in calculation 
specifications unless it was defined as 
numeric in the input specifications.) 

3. The field will serve as search argument 
in a lcok-up (LCKUP) operation for an 
argument table defined as numeric. 

4. Edit or zero-suppress operations are 
specified for the field in the output- 
format specifications. 

5. Output is specified to be in packed 
fcrmat (see Output-Format 
Specifications) . 

For a field that is to be treated as 
numeric, enter in ccl. 52. a digit from 0-9 
to represent the number of. decimal places 
in the input data field. For standard 
(unpacked) numeric input fields, the 
Decimal Positions entry is synonymous with 
the number of card col umns to be considered 
to lie to the right cf the decimal point. 
For packed input fields, it applies to the 
number of digit positions to the right of 
the hypothetical decimal point (e.g., a 3 
in ccl. 52 for a packed input field 
specifies 3 digits to the right of the 
decimal point, contained in the 2 
right-hand columns) . 



The number of the leftmost (high-order) 
card column cf the input field. The entry 
must be right- justified ; a leading zero may 
be omitted. 



The maximum number cf decimal positions 
that can be specified for a field is 9; but 
the number of decimal positions specified 

must net be arcater than: 
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1. the length of the field--fcr standard 
(unpacked) numeric input fields; cr 



*2. the digit capacity cf the field--fcr 

packed input fields. (Digit capacity = 
2n-1, where n = the length of the 
packed input field.) 

If the entire field represents an 
integer, without any decimal places, enter 
in col. 52. 

An entry (0-9) in col. 52, besides 
designating that field as numeric, also 
serves three related purposes for the field 
specified in that line: 

1. It assigns the locaticn cf the decimal 
point, so that the object prcgram can 
perform autcmatic decimal-point align- 
ment during numeric compare and arith- 
metic operations. 

Note : If a field must te defined as 
numeric, but will not te used in com- 
pare cr arithmetic operations, any of 
the digits 0-9 (within field-size 
limit) may be specified — it need not 
conform to the number cf decimals in 
the field. 

2. It directs the object prcgram to pack 
the field (see Appendix D) — unless 
input was already in packed format (P 
in Ccl. 43) . Packing strips off all 
zones, except in the lew-order (right- 
most) position of the field, where 
packing causes inversion of the zone 
and digit. At the same time, blanks 
are converted to zercs. 

In numeric cempare, arithmetic, and 
editing operations, the program treats 
an input field with a 12-overpunch or 
the absence of a zone cverpunch in the 
low-order eclumn as positive (+) ; and 
an input field with an 11-cverpunch in 
the lew-crder eclumn is treated as 
negative (-) . 



Where zones are stripped (i.e., all 
tut the low-order eclumn) all punch 
combinations that appear in cne row of 
the EECDIC table (see Appendix D, 
Figure D1) take on the value that 
appears under the eclumn heading F for 
that row (e.g.: 12-9-4, 12-11-9-4, D, 
M, U, 4, etc., all beccme 4; ±> , 8, -, 
12-11-8-1, etc., all become 0). 

For the lew-order position, zones 
are handled by the prcgram as follows: 

a. If the column contained any of the 
punch ccmbinations in EBCDIC-table 
eclumn E or F, the E- or F-zone 
remains and the field is treated as 
positive (or zero, if entire field 
is zero) . 



If the column contained any of the 
punch combinations in EBCDIC-table 
column D, or an EECEIC 60, E-zone 
is assigned and the field is 
treated as negative (or zero, if 
entire field is zero) . 
All other punch combinations are 
assigned C-zone and the field is 
treated as positive (or zero, if 
entire field is zero and/or blank) , 



Once the field becomes a result 
field for an arithmetic operation, it 
is signed C-zone (not F-zone) for plus 
or all zeros, or D-zone for minus. 



If the input field is to be used in 
numeric compare, arithmetic, or editing 
operations, the punch combinations in 
all card columns of the field must be 
represented in rows 0-9 of the EECDIC 
table, to yield valid digits when 
packed. 



3. It causes zones in any position of that 
field (including the low-order posi- 
tion) to be ignored from data compari- 
sons effected by Ccntrol-Level (eels. 
59-60) and Matching-Fields (cols. 61- 
62) specifications. 

Whenever Control Level or Matching 
Fields is specified for a field, the 
data from the field is stored separate- 
ly in an additional core location for 
each of these twe functions, besides 
its storage as a regular input data 
field. The data is stored for the 
Ccntrcl-Level and/or Matching-Fields 
operations in standard (unpacked) for- 
mat; however, if there is a specifica- 
tion in col. 52, all positions are 
stored as no-zene (hexadecimal F zone — 
see EBCDIC table) --specif ically: each 
cede in an EECDIC-table column labelled 
0-E is converted to the code in the 
same row under column heading F. 

If it is desired to treat the field 
as numeric for calculations and/or 
editing — but to retain zones for 
Control-Level and/or Matching Fields 
operations (e.g., to distinguish posi- 
tive from negative control groups) — 
the field may te specified twice, with 
different field names in the two speci- 
fication lines. The entries in one 
line then include a Decimal Positions 
specification (ccl. 52) ; the field name 
in this line is used with numeric com- 
pare, arithmetic, and editing opera- 
tions. The other line is blank in Dec- 
imal Positions (col. 52), but includes 
the Control-level (cols. 59-6C) and/or 
Matching-Fields (cols. 61-62) specifi- 
cations. This thechnigue, cf course, 
consumes additional cere storage space. 
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Note also that, if the one field name is 
used solely with Ccntrcl-Le vel or Matcbing- 
fields specifications, and net referred to 
for calculation cr output data, a diagnost- 
ic warning message ("unreferenced field 
names") is printed during program genera- 
tion. This does net prevent proper program 
generation. 

Note : Once a given Control Level 
(L1-L9) or a given Matching-Fields 
level (M1-M3) is specified in an input 
field-description line that contains a 
Decimal Positions entry (eel. 52), 
Contrcl-tevel or Matching-Fields 
entries cf the same level (L1-L9, 
M1-M3) in a ll card types are treated as 
numeric for Ccntrol-Level cr Matching- 
Fields operations, respectively. This 
applies even if the field name is dif- 
ferent in the several specification 
lines for that Ccntrcl Level or 
Matching-Fields level. (A warning mes- 
sage is printed during program genera- 
tion in the case of control fields for 
one level being defined as fceth alpha- 
meric and numeric.) 

If the field names are different, 
they may differ in f crirat--alphameric 
versus numeric; if numeric, in position 
cf decimal point — but the number of 
columns in the field must te the same. 
They are then treated as numeric fcr 
Ccntrol-Level or Matching-Fields opera- 
tions, respectively (if cne card type 
was specified as numeric for that Ix or 
Mx level) ; but for other operations, 
each field is treated in accordance 
with its own format specifications. 

Note : The _prc-.gra.jD.. dues not pex f. ex m auto- 
matic decimal alignment en numeric fields 
in Control Level or Hatching Fields 
operations. 

Tf there is no need tc define the input 
field as numeric (i.e., it will not be used 
in numeric compare, arithmetic, edit, cr 
zero-suppress operations) --even though the 
data is numeric—the programmer has the 
option cf defining the field as alphameric 
(col. 52 left blank) or defining it as nu- 
meric (0-9 in col. 52) , depending en the 
relative significance, tc his program, of 
the factors itemized immediately below. 

Defining an input field as numeric 
causes the program to pack it for input, 
and tc unpack it for output (unless Packed 
Field is specified for output) . 

1. Packing and unpacking consume object- 
program process time, and core storage 
space. 

2. Packed data occupies less cere storage 
space than unpacked data. 



3. A field that is to be packed cannot be 
longer than 15 columns before it is 
packed. 

If the same input field appears more 
than once, with the same name, in the input 
specifications it must always be the same 
size, and defined in the same format: 
always standard data format or always 
packed; always alphameric or always numer- 
ic; if numeric (or packed) , then always 
with the same number of decimal positions. 
This uniformity of size and format for one 
field name applies within and between dif- 
ferent specifications forms (input, calcu- 
lations, output) . (However, since the for- 
mat of input fields is fully defined in the 
input specifications, the number of decimal 
positions, together with field length, need 
not te repeated in the calculation specifi- 
cations if an input field is also used as a 
calculation Result Field.) 



Field Name-Cols. 53-58 

Each input field delimited in Field Loca- 
tion must be given a Field Name by the pro- 
grammer. Cnce a name has been assiqned to 
a field, the field is referenced in calcu- 
lation and output specifications by its 
name. The name is associated by the pro- 
gram with an address in core where the data 
for that field is stored; but the user need 
not concern himself with the actual core 
storage location. 

The name must begin in column 53 with 
cne of the 29 alphabetic characters, may 
continue with alphabetic or numeric charac- 
ters, and may be one to six characters 
lojwf. (g^e Definiti on o f T-er-ms, fer 
"alphabetic" and "numeric" characters — 
neither permits embedded blanks.) Within 
these rules, any Field Name may be assigned 
to any field in the input specif icatiens, 
with the exception cf 

ALTSEQ, or a name beginning with CCNTD 
or TAE, or PAGE followed by one or two 
characters. 

Also, the name PAGE is reserved for a spe- 
cial purpose (see Consecuti ve Numbering) . 

The same field name may be used fcr any 
number of fields in different card types 
(and as Result Field in calculation speci- 
fications) , provided all fields with the 
same name 

1. are the same length; and 

2. have the same data format: standard or 
packed, alphameric or numeric; and 

3. if numeric (or packed) , have the same 
number of decimal positions specified. 
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The same core storage location is used 
for fields with identical names. Cere 
storage is thus conserved by assigning the 
same name to fields in different card 
types. This has the further advantage 
that, if the same processing is to be ap- 
plied to the field for different card types, 
calculation or output specifications may be 
saved. The programmer must be careful, 
however, that data in storage frcm cne card 
type is net superseded by that from another 
type until it is no longer needed: any 
time a card with the particular field name 
is read, its data replaces that previously 
stored at the location for that field name. 
(The actual data substitution occurs just 
before detail-time calculations — see Figure 
6 1. EPG,, Program Logic.) 

On the other hand, by making a field 
name unicue to a card type, the data fcr 
that field is retained until a card of the 
same type is read again. This permits pro- 
cessing data from a previous card with data 
from a later card. (For exception, see 
Blank After, under Program Logic Flo w, and 
under Output-Format, Specif icatiens. ) 



It is also possible tc save cere storage 
space, in specialized situations, by 
assigning the same name to different fields 
within the same input card. (See Field 
Indicators, "Points to Note.") 

Dote : While not recommended, because it 
would tend tc confuse, it is permissible 
for a file name to be the same as a field 
name. 



Defining the Same Data Field as Eoth 
Alphameric and Numeric 

The program assigns a separate cere storage 
location fcr data associated with each 
field name. The same source-data field 
(input-card columns) may therefore be 
defined mere than once and with different 
data formats, provided each definition of 
the field is on a separate field- 
descripticn line and is assigned a dif- 
ferent field name. 
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ferent names: on cne line as numeric (0-9 
in ccl. 52) , with that field name 
referenced in calculation and/or editing 
operations, and no entry in Control Level 
or Matching Fields; on the other line as 
alphameric (col. 52 left blank) , with 
Control-Level (cols. 59-60) and/or 
Matching-Fields (cols. 61-62) entries in 
this line. 



This dual definition is also useful if a 
field is tc be used in arithmetic opera- 
tions, but it is also desired to test it 
for blanks (as distinct from zeros) in the 
input specifications (see Field Indicators) 
or for high-order-position zones in calcu- 
lation specifications (see TESTZ) . 



If a field is defined solely tc serve 
for Control Level or Matching Field, or 
Field Indicators, and not used in calcula- 
tion or output specifications, the warning 
message "unreferenced field names" is 
printed during generation of the object 
procrram. Generation, however, proceeds 
properly. Actually, the field name is not 
used at all by the prograir if the field is 
defined sclely for Field-Indicator, 
Control-Level or Matching-Fields operation. 
It must be given, however, to prevent a 
diagnostic error step for missing field 
name. 



Using Input Data Fields for Constant rata 
(Heading Cards) 

The term "constant" is applied here to 
information, or an item of data, that does 
not change as different data cards are pro- 
cessed; it may be reguired to remain fixed 
for the entire job en a given day, remain 
fixed for part of the data deck, or be per- 
manently fixed whenever a given report is 
run. 

Examples of constant data might be 
report date, report title, identification 
for different portions of a report, and 
report-column headings. 

The output-format specifications provide 
for defining data that remain permanently 
constant for the report, such as report 
title or report-column headings. A con- 
stant defined in the output specifications 
is limited to a maximum of 24 positions, 
although this limit can be circumvented by 
specifying several constants for successive 
sets cf print or punch positions. (See 
Output-Format Specifications chapter. ) 

The input specifications offer a con- 
venient means of entering constants that 

1. exceed 24 columns--such as a leng 
report title; and/or 
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2. may have to be changed each time the 
report is run— suet, as a date; and/or 

3. differ for successive sections of a 
report--such as separate report head- 
ings for executive, regular salary, and 
hourly-rated payroll reports, when 
there are otherwise no differences in 
the processing of the reports. 

The easiest way to enter such constants 
is to identify the card containing the con- 
stant data as a separate ir.put-cnly card 
type, and assign a field name that is not 
repeated for any other field or card type 
to the columns containing the constant. 
The card type containing the constant is 
placed in the data deck wherever desired: 
if it is a date card or report-heading 
card, it would normally be placed at the 
front of the input-data deck. If there are 
separate constants cards for different sec- 
tions of the report (such as report-section 
headings) , they can be placed at the begin- 
ning of the pertinent sections of the 
input-data deck; when a new constants card 
is read, its data will replace the data 
from the previous cne--until that point, 
the data is preserved because no other 
input card has the same field name 
assigned . 



When constants cards are interspersed in 
the data deck (to chanqe constants for dif- 
ferent sections of a report) , they may have 
control fields and Ccntrcl Levels assigned, 
to assure that they are in the correct 
group and/or to make it possible tc sort or 
merge them into the deck mechanically. 
Simple calculation specifications can 
ensure that a constants card is always at 
the front of its'" section . 

If the constants card is defined as a 
separate file, is should be designated the 
primary file, so that it is read first, and 
the constant information is available 
before the first data card. 

If multiple input (or combined) files of 
data cards are processed, the ccrstant 
card (s) may appear just ahead of any file 
or file section. If no Batching Fields are 
specified for the constants card, it will 
fce read ahead of Matching-Eields cards in 
the ether files. (For specifics, see 
chapter titled Matching of Files.) 



Consecutive Numbering (Page Numbering) — 
Heading Cards 

The outp ut-format specifications provide a 
simple method for printing consecutive num- 
bers on successive pages of output forms, 
or printing or punching consecutive numbers 
in cards, beginning with 1 as the first 
number. 



If numbering is to begin with a number 
ether than one (or if it is to begin again 
with 1 at points in the data deck that can- 
not be specified with conditioning indica- 
tors) , provision for loading initial paqe 
numbers must be made in the i nput specifi- 
cations. It is accomplished as follows: 

1. Input Specifications 

a. Define a separate input-only card 
type — just as for a constants card 

(see section immediately above). 
(Alternatively, include PAGE data 
in a constants heading card.) 

b. Assign the field name PAGE to a 
four-column card field. 

c. Define the field as numeric without 
decimal places (0 in col. 52). 

2. PAGE (i.e., Consecutive-Number) Card 

a. Punch a value one less than the 
desired starting number into the 
pertinent fcur-column field of a 
card, together with the appropriate 
card-type identification punches. 

(A positive or negative value is 
permitted, and will be incremented 
arithmetically.) 

b. Place the card ahead of the data 
deck. 

For multiple input (or combined) 
files, or tc restart numbering at 
numbers higher than 1 at several 
points of the data deck, place 
con secutive- number cards ...as. 
explained for constants (heading) 
cards. 

PAGE cards may also be inserted 
in the data deck, even though num- 
bering is tc begin with 1, if num- 
bering is to restart with 1 at 
various points in the report that 
cannot be conveniently identified 
by conditioning indicators in the 
output specifications (i.e., if 
this is reguired at points in the 
data deck that cannot be recognized 
by the program by such occurrences 
as a control-level break or a cer- 
tain card type, etc.). The con- 
tents of the censecutive-number 
field should then be left blank or 
punched with zeros, so that the 
starting number is 1. 

Figure 25 shows field description 
entries discussed sc far (and a few inci- 
dental pointers) . The example is rather 
artificial so that each entry chosen can 
illustrate at least one of the foregoing 
points . 
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Figure 25. Field Descripticns--Eart I 



Explanation of Figure 25 

Incidentals: 

Cols. 3-5 (Line Number ) . To illustrate the 

optional treatment of col. 5, zeros were 
entered instead of leaving it tlank. The 
last line entered (C25) illustrates how to 
handle an insertion: the field EPTNAM 
(cols. 11-50) in the first heading card had 
been forgotten. The specification is 
assigned any' line number between 020 and 
030. After the specification cards ha\e 
been punched, the card with line number 025 
is placed behind that for line 020. This 
method obviates copying and shifting the 
entries for an entire page. 

Lines OK an d C 3j include a specification 
to select the Date and PAGF heading cards 
to stacker 2; ether cards enter the normal 
stacker. 

Lin e 1 30 exemplifies the least number of 

Becord Identification Codes specifications 
to make all four card types mutually exclu- 
sive: "Net Character 1" distinguishes the 



fourth card type from the third; a specifi- 
cation for absence of (-) and (&) in col. 
80 of the fourth card is not needed since 
the program always tests first for cards of 
the first and second type, because they 
have alphabetic Sequence codes (see Nature 
of the Card-Type _ Sequence .Check) . 

Field Descriptions 

Lines_0J0 x _C20 x _and_025 illustrate how to 
enter constants (e.g., date and report 
heading) via a card defined as a separate 
card type. Wherever a card of that type 
appears in the data deck — at the front or 
interspersed — new date and report-heading 
data from that card supersede the previous 
contents of the core storage areas for 
SDATE and RPTNAM. 

Line 020 also illustrates that alphabet- 
ic characters, reguired in the first column 
of Field Name, include three special cha- 
racters (S is one of these three) . 

Date contains no decimal places; but it 
is defined as numeric (0 in col. 52 = nu- 
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meric, with decimal places), so that the 59-6C) will compare on the full characters 

printout can be edited. in the field, including zcne overpunches. 

If the L1 were placed next to FKFL#1, only 

Line C25 assigns forty positions (cols. the numeric parts of characters in cols. 2- 

11-50) tc the report heading (EPTNAM) . 6 would te considered in the Control-level 

Entering the report heading via an input comparisons, 
card overcomes the limitation of twenty- 
four positions maximum per constant in the These field names also illustrate that 

output specifications, and allows insertion numeric entries are allowed in Field Name, 

of new report headings at any desired point except in ccl. 53, and that # is not a spe- 

in the data deck. EPTNAM is defined as cial character (it is cne of the three sym- 

alphameric (ccl. 52 left blank) ; therefore, bcls defined as alphabetic) . 
it cannot be edited in the output-format 

specifications — any edit symbols to be LiBS_090 illustrates the maximum size of a 

printed, such as a slash or decimal point, standard (unpacked) numeric field (15 

must be ccntained in the data in cols. columns) , and the maximum number of decimal 

11-50. places (9) allowed. The entry in col. 52 

defines the field as numeric and implies, 
line s 03C, and 04C show hew tc provide for for numeric compare and arithmetic opera- 
loading cf initial "page" number, if auto- tions, that the data in cols, 41-46 is to 
matic numbering is to be specified (in the the left of the decimal pcint, and that in 
output-f crmat specifications) but is net to cols. 47-55 to the right, 
start with 1 (cr is to restart with 1 at 

points in the data deck that cannot be Line 100 emphasizes that the number cf dec- 
identified by conditioning indicators) . imal places specified must not be greater 
Wherever a card of the type defined here than the digit capacity of the field: the 
(12-punch in ccl. 80) appears in the data- field is unpacked (nc P in ccl. 43), three 
card deck, the number in eels. 1-4 (cr in columns long (cols. 62-64); therefore, it 
whatever eclumns are specified in Field cannot have more than three decimal places 
location) becomes the (new) starting num- specified, 
ber. (The number is incremented before it 

is printed or punched. Therefore, the Line 1JK) shows the maximum size (eight 

number entered should be cne less than the columns) for a packed (P in col. 43) input 

desired starting number.) Onless and until field. The entry 9 in col. 52 is valid--it 

a PAGE card is read, consecutive-numbering does net exceed the digit capacity of the 

(if called for in the outpct-f crmat speci- field — because an 8-column packed field 

fications) begins with 1. contains 15 digit positions (2n-1 = 2 x 8-1 

= 15) . Nine decimal places implies that 

The Field Name PAGE must te used, fcur the contents cf cols. 65-67 are to the left 

columns must be assigned tc the field, and of the hypothetical decimal point, and 

the field must be defined as numeric cols. 68-7 2 to its ; r ight___ Xa.. J^al.trij t_e in 

■■•vrt-h-otrt ^ecririrai places pO in ccl". 52) . col. 72 represents the sian) . The field is 

defined by its actual card columns (eels.. 

Line C40 also shows that leading zeros 65-72) — not by the number of digits it con- 

for "From" and "To" column numbers (note tains (15). 
01, 04 in cols. 46-47 and 50-51) may be 

recorded. Other specification lines When Packed (P in ccl. 43) is specified 

illustrate that they need net be recorded. for a field name, it cannct be used for 

All field-description lines shew that Control-level or Matching-Fields 

source-data columns are entered operations, 
right- justified. 

Line_220 shows assignment cf a different 

Line 060 points out that the size of name to the same source field (cols. 65-72) 

alphameric input fields (blank in ccl. 52) — CNTFPA versus HAX8PA — with the first 

is net limited. 20 columns were assigned. entry (line 110) defined as packed and the 

It also illustrates that fields need net be second as alphameric (col. 52 blank). This 

defined in the order in which they appear illustrates how ccntrol (12 in cols, 

in the source-data cards: eels. 21-40 are 59-60) may be maintained (by the entries in 

recorded ahead of cols. 2-6. line 120) on the entire FECEIC characters 

in a packed field; while the entries in 

lin es C7C an d 80 show a field (input cols. line 110 permit use of the same packed 

2-6) assigned two different names. EMFL#1 input field in arithmetic and/or editing 

is numeric (with zerc decimal places) so operations and for easily legible 
that it can te used in nuireric compare, (unpacked) printout, 
arithmetic, and/or editing operations—for 

example, to suppress leading zeros in Lin e 140 s^ows the assior.ment of the same 

printout. EMPL#2 is alphameric (ccl. 52 is field name to different source fields 
blank), sc that Ccntrol Level (L 1 in eels. (cols. 2-6 versus cols. 75-79) in two dif- 
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ferent card types (see line 080) . When the 
name is the same, the field size and data 
format must be identical (ccl. 52 must be 
coded identically in all input lines where 
the field name appears) . Note that, when 
either data-card type is read, the data 
from the new card replaces the previous 
data stored for EMPL#2 — the same cere 
storage area applies to both card types. 
Only one core storage area is assigned to 
data for one field name, regardless of how 
often that field name appears in the 
specifications. 

Line. 150 uses a different name in the 
second card type for the same source field 
shown in line 120 for the first card type. 
Eata in the storage locations for DIFNAM 
and CNTEPA is thus conserved until ancther 
card of the same type is read. 

As shewn in lines 080 and 140, and 120 
and 150, it is immaterial for the Control- 
Level operation whether the field name is 
the same cr different for the same Control 
Level (eels. 59-60). This is also true for 
Hatching Fields (eels. 61-62). However, a 
Control-Level field or a Matching Field of 
a given level (here, L2) must always be the 
same length in all card types--in this 
example, it is 8 columns leng in both card 
types (line 120 and line 15C). 

Line s 16 an d 10 have a Matching-Fields 
specification (M1 in cols. 61-62). Dif- 
ferent field names are assigned to eguiva- 
lent source fields in the twe card types. 
This permits difference in format: Line 
100 specifies the field as numeric, with 3 
decimal places; line 160 defines the field 
as alphameric. 

Line 160 is presented to emphasize that, 
notwithstanding the different field names 
in the twe card types, certain restrictions 
exist when Control Level or Matching Fields 
is specified: 

1. The field length must be the same. It 
is three columns in both card types. 

2. Once a Control Level or Matching-Fields 
level has been defined as numeric in 
one specification, all Ccntrcl-Level or 
Matching-Fields operations, respective- 
ly, for that level igncre zone punches. 

Therefore, although line 16C is blank in 
ccl. 52 (i.e., the field is defined as 
alphameric), the sequence check (or match- 
ing of cards, if the different card types 
were in different files) is performed on 
the numeric portion of the field cnly-- 
since EEC3MX in line 100 is defined as nu- 
meric (ccl. 52 is ceded). For ether uses of 
these fields (not Control-Level or 
Matching-Fields operations) , the format 
conforms to the differing specifications in 



col. 52 — DECNC data is treated as alphamer- 
ic; DFC3MX as numeric, with 3 decimal 
places. 

Line 170 illustrates that the same source- 
data field in two card types (MX15AL in 
line 17 and MAX15 in line C90) may be spec- 
ified with a different number of decimal 
places (8 and 9, respectively) , provided 
the fields are assigned different names. 

Note: As discussed with columns 59-60, 
Control-Level fields must be recorded in 
ascending seguence of significance within 
card type: LI must appear in an earlier 
specification line than 12, etc. See lines 
080 and 120, and 140 and 150. Note parti- 
cularly lines 140 and 150 where the fields 
had to be specified in a seguence different 
from that in which they appear in the 
source-data cards — DIFNAM is in data-card 
columns ahead of EMPL#2, but had to be 
defined on a lower line because L2 is high- 
er than L1. 



Control Level — Cols. 59-60 

Any of the indicators L1-L9 may be entered 
in these columns. This establishes the 
field defined in that specification line as 
a control field (as the term is known in 
Unit Record parlance — see also Definition 
of Ter ms) , and designates that L-indicator 
as a resulting indicator. Nine distinct 
control and total levels (besides LE for 
final total) are thus available — L9 is the 
highest level, LI the lowest. 

Whenever a card with an L-indicator spec- 
ified in cols. 59-60 is read, the data in 
the card columns defined in that specifica- 
tion line (in cols. 46-47 and 50-51) is 
compared with that stored from the last 
card with the same L-indicator specified. 
If the data differs, the L— indicator speci- 
fied in cols. 59-6C turns on; all L- 
indicators of lower number also turn on. 
These indicators turn en just before total- 
time processing for the new card (i.e., 
after the previous card has been completely 
processed) , and are set off by the program 
after detail-time processing of the new 
card (see Figure 6, BPG Pro gra m Lo gic) . 
The L-indicators are thus available to con- 
dition calculations and output at total 
time following the last card of a control 
group and/or to condition detail-time cal- 
culations and output for the first card of 
a control group. (See also references to 
Control Levels under Decimal Posit ions, 
Qol i _52^1 

Normally, L-indicatcrs are used to: 

1. Condition certain calculations tc be 
performed only at the end of a control 
group 



Input Specifications (Mandatory) 87 



2. Condition certain punching tc be per- 
formed cnly for grcup totals of parti- 
cular levels (summary punching) 



3. Condition certain printing tc take 
place cnly at the end cf control groups 
of particular levels (total printing) 

4. Conditioning certain calculations and/ 
or output operations tc cccur cnly on 
the first card of a control grcup cf a 
particular level (e.g., grcup 
indication) . 

See the Calculation Specifications and 
the Output-Format Specifications for appli- 
cation of the L-indicators as conditioning 
indicators. 



Note: Nc automatic decimal alignment is 
performed in Ccntrcl-Level operations en 
numeric fields. 

Split Control Fields 

Control fields may be split; i.e., one Con- 
trol Level may be assigned tc two or mere 
areas cf the same input card. The program 
then combines the data, from the several 
sets of columns with the same I-indicator 
assigned, into one continuous control 
field — in the order in which the portions 
appear in the input specifications. Thus, 
the portion (subfield) of a split control 
field recorded first is stored in the 
Control-Level data storage area tc the left 
of the pcrticn in the next specif icaticn 
line. 

Special rules for split Ccntrcl-Level 
fields: 

1. a. The length of the portions cf split 
control fields may vary for dif- 
ferent card types (if the field 
names differ) , and 

b.* A field may be split for seme card 
types and not for ethers (if the 
field names differ), bat: 

the aggregate number of columns for 
one Control Level must be uniform 
fcr all card types. 

2.* The aggregate number cf columns cf all 
portions (subfields) cf cne split nu- 
meric control field may exceed 15 
columns- -provided: 

a. No individual portion (subfield) 
exceeds 15 columns, and 

b. The sum of all control fields dees 
net exceed 1H4 columns (with each L 
level specified counted once) 



If one portion of a split Control-Level 
field is defined as numeric (i.e., col. 
52 has an entry) , the entire field is 
treated as numeric (zones stripped) for 
Control-Level operations in all card 
types. 

No other Control-Level entry may inter- 
vene in the input specifications 
between the several specification lines 
for portions of cne control level. 
(Fcr compatibility with other RPGs, no 
other field-description lines should 
intervene, either.) 



*Note: Figure 26B illustrates that several 
numeric data fields--each not longer than 
15 columns--may be portions of a single 
Control-Level field longer than 15 columns. 
It also shows that the same Control Level 
may be assigned in another card type to a 
single non-split field longer than 15 
columns, provided it is defined there as 
alphameric and assigned a different name. 

General Rules for Control Fields 

1. If several Control Levels are specified 

(in cols. 59-6C) fcr one card type they 
must be recorded in the input specifi- 
cations in ascending seguence cf level: 
the specification line with L1 must 
precede the line with L2, etc. This 
may reguire specifying input fields in 
a seguence that differs from the order 
in which the data appears in the input- 
data cards. 

However, the specification lines for 
different.. Control Levels need not he 
ccnsecutive--lines for ether fields, 
without Control-Level specifications, 
may intervene. 

2. The number of columns (i.e., the field 
size) that constitute a Control-Level 
field must be uniform in all card types 
where that Control Level is specified. 

3. The card columns fcr ccntrcl fields cf 
different Control Levels in the same 
card type may overlap; but the 
aggregate number of columns for all 
Control Levels must net exceed 144 
(with each L level specified counted 
once) . 

4. There is no requirement that, if a cer- 
tain Control Level higher than L1 is 
assigned, all lower-numbered levels 
must also be assigned. 



Note: Additional rules apply tc Control 
Levels used in conjunction with Field- 
Record Relation (cols. 63-64), and are dis- 
cussed in that section. 
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rol operation for a given Control 
1 is on a numeric tasis (all zenes 
pped) for all card types if any 
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ric (i.e., if col. 52 has an 
y) — even though the field names may 
er. (But consider defining the 

field twice for the same card 
, with different names — as 
ussed previously.) 



Field names are ignored by Ccntrci- 
Level operations — contents of specified 
data-card eclumns are compared with 
data stored from a previous card at the 
location assigned to that Control 
Level. Therefore, field names fcr the 
same Ccntrol Level in different card 
types may be the same cr different. 

A Ccntrci-Level specif icaticr cannct be 
assigned to an input field defined as 
Packed (P in eel. 43) . (But consider 
defining the same field twice for the 
same card type, with different names — 
as discussed previously.) 

A Control-Level field defined as numer- 
ic is limited to a maximum of 15 
columns. (See special case under Split 
Control Fields, above.) 

The same or different Ccntrol. Levels 
may he assigned to different card 
types; or ncne may be assigned tc some 
card types. 

Comparing on ccntrol fields cccurs 
enly fcr the card types and fields with 
Control Level specified. When a card 
for which a given Control Level is not 
specified is processed, the data fcr 
that Ccntrcl Level in storage from a 
previous card remains undisturbed. 

Control-Level compare operations are 
performed for cards in the order in 
which they are processed, regardless of 
the file from which they ccme. 
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Hatching Fields — Cols. 617_62 

Any of the codes M1, M2, or M3 may be 
entered in these columns, with these 
effects: 

1. If the program provides for processing 
of only a single input (or combined) 
file, entry of K1, M2, or M3 in cols. 
61-62 causes seguence checking of the 
contents of the field (s) defined in the 
particular specification line(s). 

However, programming a seguence 
check by entries in the calculation 
specifications usually consumes less 
cere storage space than utilizing the 
Matching-Fields entry for that purpose 
alone. Seguence checking by calcula- 
ticn specifications also permits detec- 
tion of duplicates, as well as saving 
processing time. 

2. If the program provides for the proces- 
sing of two or three input (or combi- 
ned) files, entry of H1, H2, or M3 
causes 

a. seguence checkina of the contents 
of the fields defined in specifica- 
tion lines in which M1, n2, or M3 
is entered, and 

b. matching of the contents of these 
fields 

(i) between successive cards in the 
same file and 

(ii)between cards in the primary 

file and cards in the secondary 
and (if applicable) the ter- 
tiary file. 

This determines the order in 
which cards from the two or three 
input (or combined) files are 
processed. 

When a card frcm the primary 
file matches a card from the secon- 
dary or tertiary file on all Hatch- 
ing Fields specified, the MR indi- 
cator is on during the processina 
of these matched cards. The MR 
indicator is on for detail-time 
processing of a matching card 
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through the total time and overflow 
time that follows the card (see JPG 
Program Logic, Figure 6) . The sta- 
tus of the ME indicator may be used 
to condition the execution of cal- 
culation and/or output specifica- 
tions. (See the Calculation Speci- 
fications and the Cutput-Format 
Specifications fcr applications of 
the ME indicator as conditioning 
indicator. ) 

One, two, or three fields may be matched 
and/or seguence checked in cne operation. 
If more than one field is specified fcr 
matching and/or seguence checking, the M- 
levels must be assigned to correspond to 
the significance levels of the fields. For 
example: if three fields are involved, M3 
is assigned to the most significant 
(highest-crder) and Ml tc the least signi- 
ficant (lcwest-order) field. Tc put it 
another way: the contents of the three 
fields may be regarded as cne continuous 
value, with the M3 value at the left and 
the M1 value at the right. 

If only one Matching Field is used, it 
must be assigned M1; if twc are used, M1 
and M2 must be assigned to them. A Match- 
ing Field cannot be split within the same 
card; i.e., cne Matching Field (M1, M2, or 
M3) must represent a single entry of conti- 
guous card columns with the field read from 
left tc right as high-order to lcw-crder. 

Mote : No automatic decimal alignment is 
performed in Matching-Fields operations on 
numeric fields. 

M a t ch ij_g:-F ie 1 d s_ s pe c i f i . c .at i_cn s. ... were 
already illustrated and discussed in 
Figures 13 and 25, and the ME indicator in 
Figures 11, 12A, and 13. Aspects cf Match- 
ing Fields and ME-indicatcr operations are 
fully explained in the sections Program 
logi c Fl ew (and Figure 6), Indicators, File 
Description. Specifications, Pac ked (Input 
Specif icatiens, ccl. 43) , Decimal, Posi tio ns 
(Input specifications, ccl. 52) , Field Na me 
(Input Specifications, eels. 53-58) , and 
Matching of r riles . 



To refresh the reader's memory, seme 
points are repeated here in condensed form' 

1. With multiple input (or combined) 
files, at least one card type in each 
file must have an entry in Matching 
Fields, and seguence checking is manda- 
tory for card types with Matching 
Fields specifications. A seguence 
error steps the program. (It can be 
restarted.) 

2. When Matching Fields are used, card 
types with Matching Fields specified 
must be in the same sequence in all 



files — ascending or descending. (The 
direction of seguence is designated in 
the File Description Specifications.) 

3. Comparing on Matching Fields occurs 
only fcr card types with Matching 
Fields specified. Processing of card 
types without Matching Fields specified 
dees not disturb the Matching-Fields 
data stored from a previous card. (The 
ME indicator is off during the 
processing — detail time through next 
overflow time--of a card type for which 
Matching Fields is not specified.) 

4. Card types for which Matching Fields 
are specified must all have the same 
number of Matching Fields specified. 

5. The number of columns (i.e., the field 
size) that constitutes a Matching Field 
of a given level (M1, M2, or M3) must 
be uniform for all card types with 
Matching Fields specified. 

6. The card columns fcr Matching Fields of 
different levels (»1, M2, M3) in the 
same card type may overlap; but the 
aggregate number of columns for all 
Matching Fields in one card type must 
not exceed 144. 

7. An input field defined as Packed (P in 
ccl. 43) cannot be assigned as Matching 
Field. (But consider defining the same 
field twice for the same card type, 
with different names — as discussed 
previously. ) 

8. Matching-Fields operation for a given 

levels lH.l # .._iI 2, ex.. M3>..._is on. a, .numeric. 

basis (all zones stripped) for all card 
types if any Matching Field of that 
level is defined as numeric (i.e., if 
ccl. 52 has an entry) — even though the 
field names may differ. (Eut consider 
defining the same field twice for the 
same card type, with different names — 
as discussed previously.) 

9. A Matching Field defined as numeric is 
limited to a maximum of 15 columns. 

10. Field names are ignored by Matching- 
Field operations — contents of specified 
data-card columns are compared with 
data stored from other cards at loca- 
tions assigned by the program to 
Matching-Fields data. Therefore, field 
names for the same Matching-Fields 
level in different card types may be 
the same or different. 

11. The order in which input (or combined) 
files are entered in the input specifi- 
cations determines their order of pre- 
cedence when matching two or three 
files. 
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can be available when processing match- 
ing cards cf lower precedence, but net 
vice versa. 

13. The crder in which specification lines 
for a card type with Hatching Fields 
are entered need net conform tc the 
level cf the Matching-Rields 
specifications — e.g., the line with H3 
in cols. 61-62 could fall between the 
lines with M1 and H2. 

Also, specification lines without 
Hatching-Fields entry in cols. 61-62 
may intervene between lines with 
Hatching-Fields entry. 

14. Hatching-Fields (HI, H2, M3) operations 
are independent cf Ccntrcl-I evel 
(L1-L9) operations. (However, they are 

related to the extent that control- 
field comparisons are only performed 
when pertinent cards are processed— and 
that, in turn, is based on the 
Hatching-Fields operation.) 



Note: Additional rules apply to Hatching 
Fields used in conjunction with Field- 
Record Relation (cols. 63-64), and are dis- 
cussed in that — the next — section. 

Fi eld-Record Relatio n — C ols. 63-64 

These columns are used in conjunction with 
records in an OR relationship (see Rec ord s 
in an. OR Relation shi p) . Entries in cols. 
63-64 permit associating fields only with a 
particular cne of several card types in an 
OR relationship. The distinction is made 
by entering in cols. 63-64 the cede cf one 
of the Resulting Indicators assigned in 
cols. 19-20 to the several card types in an 
OR relationship. 

Field-Record Relation can be used when 
two or more card types differ in their 
Record Identification Codes (cols. 23-41) 
but a majority of their input fields are in 
the same columns, have the same format, and 
identical field names apply — and these 
fields are described only ence. However, 
seme of the input fields differ in field 
name, location of source columns, and/cr 
format, and/or size--and each different 
field requires a separate field description 
line. (The field name may be the same, 
provided the sole difference for that field 
between the card types is in location of 
source columns; otherwise the name must 
also be different.) 

Different card-type Resulting Indicators 
are assigned in cols. 19-20 to seme or all 
of the several card types in the OR rela- 
tionship. Ey entry cf the card-type 
Resulting Indicator for the appropriate 
card type in Field-Record Relation (eels. 



53-64) , a field description is associated 
only with a particular cne cf the card 
types in an OR relationship . . Field 
descriptions without an entry in Field- 
Record Relation apply to all the card types 
in the OR relationship. This saves enter- 
ing specification lines and, if the propor- 
tion of identical fields preponderates, it 
also saves core storage space. 
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Special Rules for Use of Field-Record Rela- 
tion (cols. 63-64) 

For each set of card types in an OR 
relationship: 

1 . Core storage space is conserved by 
grouping together (i.e., in consecutive 
lines) all field descriptions with the 
same indicator in Field-Record Relation 
(cols. 63-64), and by grouping together 
all field descriptions without Field- 
Record Relation indicator. 

2. When the same Control level (L1-L9 — 
cols. 59-60) or Hatching-Fields level 

(H1-H3--cols. 61-62) is assigned both 
tc field descripticn without Field- 
Record Relation indicator, and to one 
or more field descriptions with Field- 
Record Relation indicator (s) , the 
Ccntrol-Level and Hatching-Fields 
entries without Field-Record Relation 
indicator must appear first. 

3. In view of (1) and (2) above, all the 
field-description lines without Field- 
Record Relation entries shculd appear 
before those with Field-Record 
Relation. 

4. The program treats split control fields 

{see C on t r ol_L ey el , cols. 59-60) of one 
Control Level as a single entity, for 
purposes of Control-Level operations. 
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Therefore, it is net possible (for 
Ccntrcl-Level operations) to assign 
different field portions of a single 
Control Level to different Field-Record 
Relation indicators, or to assign a 
portion to a Field-Record Relation 
indicator and have another portion in a 
field-description line without Field- 
Record Relation indicator. 

The same result is easily achieved 
by repeating all portions of the split 
control field--even that which might 
apply regardless of OR-relation card 
type — for all pertinent Field-Record 
Relation field-description lines. 
(Figure 26B, lines 06 and 17, illus- 
trates this--see explanation in point 
3, under Ex planation cf Fntri es in 
F igu re 2 6B.) 

5. When the same Control Level or 
Matching-Field level is assigned both 
to field description without Field- 
Record Relation indicator, and to one 
or more field descriptions with Field- 
Record Relation indicator (s) , only the 
specif icaticn with the pertinent Field- 
Record Relation indicator is used--for 
Control-Level and/or Matching-Fields 
operations — when that indicator is 
turned en. If none of the Field-Record 
Relation indicators for that Control 
Level or Matching-Fields level is en, 
the specification without Field-Record 
Relation indicator assigned is used for 
that level. 

Ccntrcl-Level and Matching-Fields 
specifications to which no Field-Record 
Relations indicator is assigned for any 
cf the card types in the Ofr~ relation- 
ship are used with all card types in 
the CR relationship. 

6. The number of Batching Fields specified 
(one, two, or three) .must be uniform 
for all card types for which Matching 
Fields are specified. 

It is net allowed, therefore, to 
match (or seguence check by entry in 
eels. 61-62) on a differ ent number of 
f iel ds for different card types in an 
CR relaticnship. It is, however, 
permissible to match (cr seguence-check 
by entry in eels. 61-62) en the 



appropriate number of fields for some 
card types — and not at al l for ethers 
in the OR relationship. The latter 
implies that all f ield-descripticn 
lines with Matching Fields specified 
contain also a Field-Record Relation 
indicator entry; otherwise — as 
explained in 5, above — a 
Matching-Fields line without 
Field-Record Relation indicator is 
applied whenever no such indicator is 
en for that level. (See also Mat ching 
Fields, cols. 61-62, and Matching cf 
Files. ) 

7. The number of Control Levels (L1-L9) 
specified for different card types in 
the OR relationship may differ. It is 
also permitted to have no Control Level 
for certain card types, and any number 
cf Control Levels for other card types. 

8. While — for Control-Level and Matching- 
Fields eperatiens — entries with Field- 
Record Relation indicator assigned take 
precedence, when the relevant indicator 
is on, over those without an indicator 
entry in cols. 63-6U, this is not true 
for other processing cf the data in 
these fields: 

The data from the card field defined 
in every field-description line which 
has no Field-Record Relation entry is 
read from all card types in the OR 
relaticnship. This data is read into 
the core storage area assigned by the 
program to that field name, which is 
not the same area where Control-Level 
or Matching-Fields information — which 
ignores field name — is stored. 

If it is desired tc read into the 
field-name storage area for a field 
only from certain card types in the OR 
relaticnship — cr tc read the same field 
from different card columns for the 
different card types--then each field- 
description line for that field must 
have an appropriate indicator entered 
in Field-Record Relation. 

Fiqures 26A, B, and C illustrate input- 
specif icatiens entries fcr Control Level, 
Matching Fields, Field-Record Relation, and 
ether OR r elatienships. (See also Figure 
25 and earlier figures.) 
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"Figure 26A. Field Descriptions — Part II 



Explanation of Entries in Figure 26A — 
Control levels. File Matching, and OR Rela- 
tionship Types 1 and 2 (see Records in an 
0B Relationship) 

lines 01 , 02 , and 03 show three records in 
an OR relationship of Type 1 (see abcve) : 
Resulting Indicator 80 applies tc all three 
types (it could have been repeated in each 
line) . Nc distinction can be made (en the 
basis of card type) in the calculation and/ 
or output-format specifications between the 
three card types, because the same indica- 
tor is assigned to all three. 

Lines 04 and 05 shew two mere records in an 
CR relationship to the first three; tut 
they are cf Type-2 OF relationship: sepa- 
rate Resulting Indicators are assigned tc 
them, to permit calculation- and output- 
specifications distinction between the 
fourth card type, the fifth, and the first 
three (as a group) . 

Lines 02-04 also illustrate that card 
types in any kind of OR relationship — even 



when nc distinguishing Resulting Indicator 
is assigned — may be directed to non-normal 
stackers by entries in the input 
specifications. 

lines 01-05 illustrate only OR relation- 
ships of Types 1 and 2: the data fields 
(lines 06-12) are defined only once, and 
none are limited tc a particular one, or 
group, of the five card types in the CR 
relationship — Field-Record Relation (cols. 
63-64) is therefore blank. 

Lines 13 and 14 are another example of AND 
relationships between four criteria for the 
definition of one card type. 

Lin es 06 and 15 specify that Control Level 
L1 will te a numeric control only (all 
zones stripped), because col. 52 has an 
entry. 

Lines 06, 10, and _12, and l in es 15 and 1 9 

show Ccntrol-Level indicators to be in 
ascending order cf significance — as they 
must te, even if the data appears in the 
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Figure 26E. Field Descriptions - Part III 



cards in a different order (note lines C6 
and 10) . 

Line 10 has Ccntrcl-te vel indicator 13 
assigned, although L2 is nowhere assigned 
in this file. This is peririssifcle . When 
13 (or ary higher indicator) turns en, 12 
and L1 also turn on, even though 12 is not 
assigned . 

SECNJIIE dees not have 13 assigned tc any 
field, although it is assigned in the ether 
file. Nc 13 Ccntrcl-Level comparison is, 
therefore, made when a card is read frcm 
the file SECNFILE. The 13 information from 
the last preceding card frcm the file 
TYPE10R2 is preserved, and cempared aoainst 
the next card processed frcm that file. 

Tf .14 turns on when reading a card from 
SECNIIIE, 13, 12, and T. 1 alsc turn en, even 
thouqh L 3 and 12 are not assigned in this 
file. 

lines C8 and 10 illustrate that the 
Matchinc-Eields specif icaticrs (U1, %2, H3 



in cols. 61-62) need net appear in ascend- 
ing crder. F.eqardless of the crder in 
which they are recorded, M3 identifies the 
hiah-crder (most-sianif icant) field, and M1 
the lew-order field. Thus, DIVISN contains 
the mest-signif icant (leftmost) data for 
the card match and seguence check, DEPT the 
next part, and EMPLNC represents the right- 
hand pcrticn. 



The entire example alsc shows: 



That the numfcer cf Natchinq Fields must 
be the same for all card types for 
which matchinq fields are specified 
(three fields in all cards of this 
example) ; 

That Matchino fields need not be the 
same as Control-Level fields; 

That other field-description lines may 
te placed between Ccntrcl-Level and 
Matchina-Fields lines. 
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Line s C8 # C9, and 18 show how to specify 

Field Location (in eels. 46-47 and 5C-51) 
for single-column fields. 

lines 08 and 12. and 18 and 19 show that 
fields for Control Level and Matching 
Fields may overlap. Lines 06 and 10 show 
that fields for different Ccntrol Levels 
and for different Hatching-Fields levels 
may overlap. 

File relationship: File TY.PE10R2 is the 
primary file, because it is specified ahead 
of SECNFILE. when cards frcm the two files 
match on the data in the three fields spec- 
ified as Matching Fields, matched primary 
cards are processed ahead of matched 
secondaries. 



Explanation of Entries in Figure 26E — 
Split Control Fields, Selective Sequence 
Check, and OE Relationship Type 3 

Lin es 01-04 provide for identifying each of 
the four different card types in an OE 
relationship, and assiqning a different 
Resulting Indicator to each. Indicator 94 
is assigned to cards that do net satisfy 
the criteria for indicators 91-93 (i.e., 
not 1, 2, or 3 in col. 80) ; these cards are 
selected to stacker 2. No Record Identifi- 
cation Codes are needed in line 04, because 
lines in an OE relationship are tested in 
sequence; therefore, card-type Resulting 
Indicator 94 turns on only if the card does 
not meet the criterion in line 01, 02, or 



Therefore, when processing a card from 
SECNFILE, data from the last preceding card 
frcm the file labeled TYPF10E2 can be uti- 
lized. For example, gross pay cculd be 
calculated by multiplying HRSWRK in each 
SECNFILE card by PAYBAT frcm the last pre- 
ceding card from file TYEE10E2. The KB 
indicator is en only fcr matched cards. 
Conditioning the calculation specification 
to be performed, at detail time, only if 
the indicators MR and 89 are both on, gross 
pay would be calculated enly on cards from 
SECNFILE and only if the last card from the 
file TYPE10R2 matched the SECNFILE card on 
DIVISN, EEPT, and FMFLNO. Gross pay cculd 
not be calculated during the prccessing of 
a card from the file TYPE10R2, because all 
matching primary cards have completed pro- 
cessing before data (in this case, HRSWRK) 
beeches available frcm a matched secondary 
card . 

To illustrate the point that data fcr 
fields with different Field Names is stored 
at different locations, regardless of 
source eclumns, PAYRAT and HESWEK were 
assigned the same card cclcmns in different 
card types. 



Figure 26C itemizes the card columns frcm 
which Ccntrol-Level data will be taken for 
each of the four card types in the OR rela- 
tionship. The following points are note- 
worthy in Figures 26B and C with regard to 
Control Level: 

1. When neither indicator 91 nor 92 is en, 
L1 Control Level is based on the 11 
entries with no Field-Record Relation 
specified (lines 05 and 06). When 
indicator 91 or 92 is on, L1 Control- 
Level data is based on the entries in 
lines 11-13 or 16-17, respectively — 
lines 05 and 06 are then ianored for 
Ccntrol-Level data. 

Similarly, L2 Ccntrol Level is based 
en the entries in line 19 (data-card 
eels. 61-63) when indicator 92 is on 
(i.e., the secend type cf card was 
read) ; otherwise, it is based on the 
entries in line 08 (cols. 11-13). 
Likewise, L3 Control Level is based on 
line 14 (data-card columns 51-70) when 
indicatcr 91 is en (first type of 
card) ; otherwise it is based on lines 
09 and 10 (cols. 51-60 and 31-40) . 



Card-Type | Card Columns Read for Ccntrol-Level Operations 
Ee suiting | — , r r 



Indie. CN | L4 
4 

91 | 21-2 
1 



92 



| No L4 
j control 



J 

S3 



L3 | L2 

51-7C | 11-13 
-f- 



51-60 



51-6C 



31-40. | 61-63 



+- 



| No L4 
j control 

94 | 21-25 | 51-6C | 31-40 | 11-13 



1-4C | 11-13 
I 



71-75 | 26-27 | 48-50 

6-1C | 46-5C 
I 

1-5 | 4 6-5 

I 
1 

1-5 | 46-50 | 



Figure 26C. Card Columns frcm which Ccntrol Fields will be Taken when 
One of the Card Types Defined in Figure 26B is Bead 
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2. Control level 1.4 is operative only when 
indicator 91 or 94 is en, because 14 is 
net specified at all without a Field- 
Record Relation. Card types to which 
Resuitinq Indicator 92 cr 93 is 
assigned therefore dc net turn on indi- 
cator L4. The L4 Control-level data is 
preserved frcm the last preceding card 
with indicator 9 1 cr 94, tc be compared 
against the 14 data in the next card of 
type S1 or 94. 

3. The 11 Control Level is split into 
three fields for cards with indicator 
91, and into two fields for the ether 
card types. Note that, in all three 
cases, the total length for L1 is 
unif crm (ten columns) : the aggregate 
length of fields fcr a split Ccntrcl 
Level must be uniform for all card 
types. 

In lines 06 and 17 the field entries 
for the lew-crder portion cf the split 
LI Control level are identical (FLDA2, 
source cols. 46-5C). Nonetheless, the 
field description had tc be repeated 
fcr Field-Record Relation indicator 92, 
because the ether portion cf L1 differs 
between card type 92 and ethers (source 
cols. 6-10 versus 1-5, and Field Name 
FLDA6 versus FLLS1) : part of a split 
ccntrcl field cannot be conditioned by 
a Field-Record Relation indicator 
unless all parts are sc conditioned, 
even if this means repetition of an 
identical entry. 

4. In lines 09 and 10, the fields tc which 
Ccntrcl Level L3 is assigned are 
.defined, as numeric .._£col_, _ 5.2.. J?ajL. 

entries) . Each cf the two portions 
(subfields) is within the limit of 15 
columns for a numeric field, although 
the aggregate length of the L3 control 
field exceeds 15 columns — it adds up to 
20 columns. This is permissible, so 
long as no individual numeric subfield 
exceeds 15 columns. 

In line 14, the same L3 Ccntrcl 
Level is not split when card-type 
Resulting Indicator 91 is en. To be 
uniform for all card types, it must be 
20 columns lcng--which exceeds the 15- 
column limit for a numeric field. Note 
that FLDC in line 14 is defined as 
alphameric (col. 52 is blank) ; it may 
therefore legitimately exceed 15 
columns in length. 

It is permissible tc designate dif- 
ferently named fields for the same Con- 
trol Level in different formats (i.e., 
with different Decimal Positions speci- 
fication) . For processing of the data 
in the fields, format accords with the 
specification in col. £2; for Control- 



Level operations, compare is purely 
numeric (zones stripped) if one cf the 
fields or split portions for that Con- 
trol Level is defined as numeric. L3 

is, therefore, a numeric control field. 

5. Control-Level entries must be in 
ascending order cf significance (i.e., 
L1 appears in an earlier line than L2, 
etc.) within Field-Record Relation 
grcup, and within the group without 
Field-Record Relation specifications. 

6. The Control-Level entries without 
Field-Record Relation specifications 
must appear ahead cf those conditioned 
by Field-Record Relation. 

7. Lines without Control-Level specifica- 
tion may appear between those with dif- 
ferent Control-Level specifications, 
but (to be compatible with other RPGs) 
not between entries for the same split 
Control Level. 

Lines 05-10, 11-15, 16-19, and 20 illus- 
trate that field-description lines should 
be grouped by Field-Record Relation indica- 
tor, to minimize core storage requirements. 

Lines 11 and 13,. and 16 an d 19 contain 
Matching Fields specifications (in cols. 

6 1-62). The contents of fields FLDA3 and 
FLDA5 in card type 9 1, and FLEA6 and FLEE2 
in card type 92 will be sequence checked. 
Card types 93 and 94 are not sequence 
checked, because M1 and H2 are not speci- 
fied with Field-Record Relation 93 or 94; 
nor are they specified without any Field- 
Record Relation. (If M1 and M2 were also 
?-P_?.£iJLl?-4_ : *- H lines without a Field-Record 
Relation entry, the fields in these lines 
would be sequence checked whenever neither 
indicator 91 nor 92 is on.) 

Note that, for card types for which 
Matching Fields are specified, the same 
number of fields must be specified for 
matching, and the field size for each M- 
level must be the sane in all such cards. 

Data -field specifications are not affected 
by Field-Record Relation in the same manner 
as Control Level or Matching Fields: 

As pointed out above, whenever a 
Control-Level or Matching-Fields specifica- 
tion appears in the same line as a Field- 
Record Relation indicator, only the 
Control-Level or Matching-Fields specifica- 
tion in that line applies fcr that level — 
even if the same Control-Level or Matchinq- 
Fields code is also specified in a line 
without Field-Record Relation. 

However, the data for the field speci- 
fied in a field-description line without 
Field-Record Relation entry is read into 
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the core storaae area assigned tc that 
field, regardless cf which card-type 
Resultinq Indicator is on (fcr the group in 
an OR relationship) . Cn the other hand, 
data for fields ir. lines with Field-Eeccrd 
Relation indicator are read into the 
storage area for the field only when that 
particular indicator is cn. 

Therefore, the data for fields in lines 
11-15 is read cnly from cards with Result- 
ing Indicator 91; that fcr lines 16-19 cnly 
when indicator 92 is on; and that fcr line 

Z. W V^l-X^ JLJ-V,1U <^QJ_U CJT pC 31m U U C LliC CLClQyC 

areas for the fields defined in lines 5-10 
receive rev data from each of the four card 
types. 

Tc illustrate by a few examples: 

1. The storage area for the field named 
FLDA3 receives new data cnly frcm the 
card type to which Resulting Indicator 
91 was assigned, 

2. The storage area fcr the field named 
FLDD receives new data from every card 
of type 91 or 94. 

3. The storage area for MCNTH receives new 
data cnly frcm cards cf type 92. 

4. The storage area fcr the field named 
FLDA1 receives new data frcm every card 

(in the OR-relation group of card 
types) . 



5. 



The field named FLDA2 appears in line 
06 without Field-Record Relation, and 
in line 17 with Field-Record Relation 
indicator 92, although the source 
cclumns (46-50) are identical. This 
was necessary because it is part cf a 
split ccntrcl field, and the other part 
of the split L 1 Control Level is 
assiqned to different source cclumns 
(cols. 6-10 versus eels. 1-5). 



When a card of 
data for the field 
stored twice in th 
Core storage space 
the same field nam 
different source c 
lines C6 and 17, t 
line 17 would be a 
sing, whenever indi 
would replace data 
described in line 



type 92 is read, the 

named FIDA2 is 
e same process area. 

is saved by using 
e. (Of course, if 
clumns applied in 
he data described on 
vailatle fcr prcces- 
catcr 92 is cn — it 

in the field 
C6.) 



Fie l d In dicators — Cols. 65-7C 

Any indicator cede, except L0, may be 
placed ir any of these three sets cf twe 
columns (eels. 65-66, 67-68, 69-70) . The 
corresponding indicator is treated like a 
resulting indicator for the contents cf the 
field described in that line: the indica- 



tor turns cn if the contents c 
satisfy the criterion (Plus, M 
Zero/Blank, respectively) to w 
ticular indicator was assigned 
it turns off. These indicator 
used as conditioning indicator 
tion and/or output specificati 
can serve tc condition the exe 
calculation or output specific 
occur only when a particular i 
was or was not positive, negat 
blank, or when a particular st 
tion cf several input fields o 



f the field 
inus, or 
hich the par- 
— otherwise 
s can then be 
s in calcula- 
ons: they 
cution of a 
ation tc 
nput field 
ive, or zero/ 
atus combina- 
btains. 



Assignment of Field Indicators to a nu- 
meric field causes the contents to become 
signed (hexadecimal C or E— see EBCDIC 
table, Appendix D, Figure D1) if the input 
field was unsigned (hexadecimal E or F) . A 
-0 field becomes +0. 

NOTE: To test a numeric field for Plus, 
Minus, or Zero/Blank, each column must con- 
tain a valid decimal digit or blank with 'or 
without sign; i.e., all entries must be 
represented in FECBIC table rows ,0-9 (see 
Appendix D, Figure D1). 



Plus (Cols. 65-66) 

Enter the code of the indicator that is tc 
be turned on whenever the value of the 
associated input field is positive. 

An input field is treated as positive if 
the punch ccmbinaticn in the lew-crder card 
column is represented in any of the columns 
of the EECDIC table (see Appendix D, Figure 
D1 ) except D — but excluding EECDIC 60 — and 
provided all punch combinations in the 
field do not fall in row of the EECDIC 
table. 

Expressed in terms of common usage: the 
field is treated as positive if the low- 
order position does not have an 11- 
overpunch, provided the numeric contents of 
the entire field are net zero or blank. 
(See special rules for packed input data, 
under Packed, Column 4 3.) 

Cclumns 65-66 (Plus) may have an entry 
only for fields defined as numeric (0-9 in 
col. 52) . 



Minus (Cols. 67-68) 

Enter the code of the indicator that is to 
be turned on whenever the value of the 
associated input field is negative. 

An input field is treated as negative if 
the punch combination in the lew-crder card 
column is equivalent to EBCDIC 60 or is 
represented in column D of the EECEIC table 
(Appendix D, Figure D1), provided all punch 
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combinations in the field do net fall in 
row of the EECDIC table. 



Expressed in terms cf cemmon usage: the 
field is treated as negative if the lew- 
order position has an 1 1-overpunch, pro- 
vided the numeric contents of the entire 
field are not zero or blank. (See special 
rules for packed input data, under Pac ked , 
col. 43.) 



Cclumrs 67-68 (Minus) may have an entry 
only for fields defined as numeric (0-9 in 
col. 52) . 



Zero or Elank (Cols. 69-70) — Eield Defined 
as Alphameric (Ccl. 52 Blank) 

Enter the cede cf the indicator that is to 
be turned on whenever the associated input 
field is completely blank. (Zeros, and 11- 
and 12-punches, are not treated as blanks.) 



Zero or Elank (Cols. 69-7C) — Field Defined 
as Numeric (0-9 in Ccl. 52) 

Enter the code of the indicator that is to 
be turned on whenever the associated input 
field consists entirely cf zercs and/or 
blank columns and/or zone punches. 

Expressed broadly, the indicator 
assigned here is turned en if all punch 
combinatiens in the field are represented 
in row of the EBCDIC table (Appendix D, 
Figure D1). (See special rules for packed 
iftf-VHt— da-ta^- ■ Uftder Packe4, ocl. 43.) 



Note, for example, that a field of zeros 
with a 12- or 11-overpunch (in the lew- 
order or any other position) turns on the 
indicator assigned here--not the indicator 
assigned to Plus cr Minus. 

Therefore, if the signs are in the high- 
order column of input fields, and that 
column cculd contain zerc for its data por- 
tion, the signs should be tested by TESTZ 
in the calculation specifications — net by 
defining the high-order coluirn as a sepa- 
rate input field and attempting tc test for 
Plus or Minus. 

If it is necessary to use the instruc- 
tion TESTZ in the calculation specifica- 
tions (tc identify a sign in the high-crder 
position of the field), cr if it is desired 
to determine whether a field is blank (as 
distinct frcm zero)--yet the field is to be 
used in arithmetic operaticns--the field 
can te defined twice: once as alphameric 
(to be used for TESTZ cr to test for 
blanks) and once as numeric (for arithmetic 
operatiors) , with different field names. 



Field Indicators are actually turned on 
or off — based on the status of the asso- 
ciated input field--just hefore detail-time 
calculations. (See EP G Pro gra m Logic, 
Figure 6.) 

An input field may te assigned different 
indicators for two, or all three, of the 
conditions (Plus, Minus, Zero or Blank). 
When the program turns on the indicator for 
the condition that applies, it turns off 
(if they were on) the indicators assigned 
for that field to the conditions that do 
net apply. Thus, with the exceptions 
stated in "Points to Note" below, only one 
Field Indicator is on at one time for one 
field. 

The same indicator may be assigned to 
more than one criterion for the same field 
— for example, to Plus and Zero. It is 
then turned on if either condition is 
satisfied . 

Points tc Note 

1. The indicators normally used as Eield 
Indicators are 01-99, E1, H2. Use of 
any others reguires a complete grasp of 
the sections Program Logic Flo w, I ndi- 
cators, and Indicator Hier arch y, in the 
chapter Programmin g for RP G — G eneral 
Information . 

Assignment of indicator B1 or H2 
causes the program to halt after pro- 
cessing of the card for which H1 or H2 
is turned on, unless the indicator is 
turned off by a programmer's instruc- 
tion in the detail-time calculation 
spec-if-ic-ations for tha-t card. (It can 
only be turned off at detail time, 
because Field Indicators are not turned 
on until just before detail-time calcu- 
lations, and the halt — if Hi or H2 is 
on — occurs shortly after detail-time 
output (see Figure 6, BPG Progr am 
Logic) .) 

2. Field-Description entries are asso- 
ciated with the particular card type 
defined above them in columns 19-41; 
the specifications in a f ield-descrip- 
ticn line are executed only when a card 
of that type has been read. Therefore, 
the status of a Field Indicator can 
change (apart from exceptions itemized 
here) only after a card of the per- 
tinent type has been read. It may, 
therefore, remain en cr off while cards 
of other types are being processed. 
Ccnseguently, different field indica- 
tors assigned to fields in different 
card types may be en concurrently. 

On the other hand, if the same Field 
Indicator is assigned to fields in dif- 
ferent card types, its status will be 
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based on the contents of the relevant 
field in the last card cf a pertinent 
type read. 

3. If the same indicator is assigned to 
mere than cne field ir the same card 
type, the last field entered with which 
the indicator is associated determines 
its status. 

4. If the same field name is assigned to 
two different sets of source eclumns in 
the same card — once with Field Indica- 
tor and once without — the status of the 

i r. a ■; ,~ -. j- ^. ■*. ,,-; i n ^,^,.,-^,,.1.-1,., _,--p-i^„4_ 4_v^ 

lUUX^QUVJt HJ.J.J. Ks \s J_ V ^ V^ <- -i. J 0-^J-J.C^U L1!C 

contents of the field with which it is 
associated. Only cne cere storage area 
is assigned to the field name; it T «ill 
contain the contents cf the field spec- 
ified last with that name. (Of 
course, size and format must be uniform 
for both fields using the same name.) 

This is a technique fcr setting an 
indicator based on the contents cf a 
field — when the field is net otherwise 
needed for calculations cr cutput-- 
withcut consuming any cere space tc 
store the data of that field. 

5. The same indicator used as a Field 
Indicator in the input specifications 
may also be assigned as a Resulting 
Indicator, or specified to be SFTO or 
SETOF, in the calculation specifica- 
tions. This may change its status dur- 
ing the processing of a card. 

6. Indicators assigned tc Plus (eels. 65- 
66) cr Minus (cols. 67-68) are off at 
the beginning cf cb ject-prcgrair execu- 
tion. They do net turn, en until the 
critericn is satisfied when a card of 
the pertinent type has been read. 

On the other hand, indicators 01-99 
— but not P1 or P2 — assigned tc Zero cr 
Blank (cols. 69-70) are on at the 
beginning (1P time) of program execu- 
tion — before the first data card is 
read (see Figure 11, Hierarchy and Sum- 
mary c f Ind icators) . They remain on 
until a card of the pertinent type is 
read, and the field being tested fcr 
zero cr blank does net satisfy that 
criterion. Thus, caution is called for 
in basing calculation cr output opera- 
tions sclely on the status of such 
indicators. 



Exception: If the same indicator is 
used both as card-type Resulting Indi- 
cator and as Zero-cr-Elank Field Indi- 
cator, it is net on at the beginning of 
program execution (IP time), because 
card-type indicators take precedence 
and are all off at the beginning (see 
Jigrarchy_and Summary cf Indicators). 



7. Change cf value in a field during cal- 
culations or output does not in itself 
change the status of a Field Indicator 
set on the basis of the value in the 
field at time cf input. 



However, if Elank-After (E in col. 
39) is designated for a field in the 
output specifications, the field is set 
to blanks (if alphameric) or to zeros 

(if numeric) immediately after the data 
is mcved to the output storage area 

(the data is then lost to any subse- 

^, ,,„„j- ,-, ,-■ j- v-, ,, -i- ,-« ^ „ ,- -, j- .: „_\ -r c -. -r\i ^-i j 

^ UCll L WUOpUl. Uj-Ci-Q LXIJIJJ • -L-L d TJ.CJ.U 

Indicator is assigned tc Zero-or-Elank 
fcr that field in the input specifica- 
tions, the indicator turns on at that 
pcint during output, regardless of its 
prior status (see also Blank-A fter 
under Pro gra m logic Flew) . It is then 
on during processing of additional out- 
put specification lines and until 
turned eff when the field is tested 
again in the next input card of the 
pertinent type, and found not to satis- 
fy the Zero-or-Elank condition. 

Note, however, that any Field Indi- 
cator assigned to Plus cr Minus in the 
input specifications does not turn off 
(if it was on) when the indicator 
assigned to Zero-or-Blank for the same 
field is turned on by the Elank-After 
instruction. 

8. If Blank-After (B in col. 39) is desig- 
nated for a field in the output-f crmat 
specifications, and mere than one indi- 
cator has been assigned to that field 
tc represent the condition Zerc-or- 
Blank, only the first-assigned indica- 
tor is turned on by Elank-After. For 
example: 

a. An indicatcr (say, 25) is assigned 
tc Zero-or-Elank for a field in 
Field Indicators of the input spec- 
ificatiens; and 

b. Another indicator (say, 40) is 
assigned tc Zero-cr-Blank as 
Resulting Indicator, for the same 
field used as result field in the 
calculation specifications (arith- 
metic or TESTZ operation) ; then 

c. Elank-After turns on indicator 25 — 
the first-assigned indicator — not 
indicator 4C. 

9. Assignment of Field Indicators causes 
an unsigned positive numeric-field 
value (EBCDIC-table column E or F) to 
become signed hexadecimal C, 

Figure 27 illustrates assignment of 
Field Indicators. 
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Figure 27. Field Indicators 



Explanation of Entries in Figure 27 

S£e_cif icatiorj_line_0 2 shews hew to turn on 
indicator H1 if cols. 1-5 of the data card 
are blank and/or contain zeros and/cr zone 
punches only. Because the field is defined 
as numeric tco.1... 5.2 has an entry) , .r.c dis- 
tinction is made in Field Indicators 
between blank, zerc, and zone punches. 
(H-indicators assigned to Zero-cr-Elank are 
not on at the beginning—see Figure 11.) 

The HI indicator may be used — like indi- 
cators 1-99 — to condition calculation and 
output specifications; e.g., NH1 may be 
designated as a condition so that a parti- 
cular specification is executed only when 
EMPLNO is not zeros (or blank) . If EMPLNC 
is zeros (or blank) in a card, the system 
halts after that card has been processed, 
unless H1 is turned off during detail-time 
calculations by a prcqrairirer ' s 
specification. 

line C3 specifies that indicator 10 turns 
en if cols. 11-30 are blank — but net if 
they contain zeros, since the field is 
defined as alphameric. (Crly Ze rc-cr-Elank 
may contain an entry for alphameric 
fields.) 

Line 4 causes indicator 1 tc turn en if 
the field in cols. 3 1-34 is negative, and 
indicator C2 to turn on if it is zerc (or 



blank) . This illustrates assignment of 
different Field Indicators to two condi- 
tions in the same field. 

Line_05 causes indicator C3 to turn on if 
cols. 7-10 contain zeros (or are blank). 

Lines 04 and 05 also illustrate hew to set 
indicators based on the status of a field 
(cols. 31-34) that is not needed for any 
ether purpose, without tyina up core 
storage space for it. The data in cols. 7- 
10 is to be used subsequently, and is 
stored at the location for FRSWRK. Note 
that the format must be uniform for the two 
fields that were assigned the same name. 

Line_06 specifies indicator H2 if cols. 
7-10 are blank — as distinct from zero. In 
line 05, an indicator (03) was specified if 
the same field is zero or blank. We have 
arbitrarily — to illustrate a point — made 
the assumption that hours worked may legi- 
timately be zero; but that a blank field 
represents an error for which we wish tc 
bypass processing (by using NH2 as condi- 
tioning indicator in calculations and out- 
put) and after which we .want to halt. 
(Perhaps the card was missed by the key- 
punch operator.) To recognize the blank 
field, the field had tc be specified as 
alphameric; to use the data in arithmetic 
operations, the field must be defined as 
numeric: her.ee, the ^ielc is described 
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twice, witn aiiiereiit names. Tne aipnamer- 
ic field alsc alleys testing fer high-crder 
zone punches in the calculation specifica- 
tions; these zone punches might te intended 
to identify special situations. 

lines 02 a nd G6 used up the available halt 
indicators. -Therefore, although a blank 
NAME field represents an error, H1 or H2 
cannot te used in line 03; another indica- 
tor (in this case 10) can te assigned, and 
used in the detail-time calculation speci- 
fications to turn en H1 or H2 if a halt is 
desired* 

If H1 had been assigned tc Elank for 
NAME, as veil as tc Zero-cr-Blank for 
EMPLNO, then: when the NAME field is not 
blank, E1 is turned off even if EMPLNC is 
zero (or blank) ; i.e., the later test 
supersedes any earlier test for the same 
indicator. 

Iine_08 again assigns indicator H1 tc zero 
(or blank) in the EMPLNO field. However, 
this line applies to a different card type. 
The status of this indicator is thus 
revised for each card; but the status of H1 
does not conflict for twe fields within the 
same card. 

Line 09 shows assignment of three different 
indicators for the three possible states of 
values in one field. 

Line 1 identifies positive values in the 
field by cne indicator (34) and zeros (or 
blank) by another (40) . 

Line 1 1 assigns indicator 35 to cards with 
a positive value in cols. 15-18, or with 
zeros (or blank) in cols. 15-18. It will, 
therefore, be en if either condition is 
satisfied. 

Line 12 illustrates use of the same indica- 
tor for different purposes in different 
cards (see line 05) . Its status will, 
therefore, te revised for each card. 

Points tc be Especially Ncted in Figure 27 

1. Indicators 01-99 assigned tc Zerc-cr- 
Elank (cols. 69-70) are en at the 
beginning of object- program execution. 
Thus, indicators 02, 03, 10, 33, 35, 
and 40 are on during heading-and^ 
detail-time output preceding the read- 
ing of the first card. 

Indicators HI and H2 are off at the 
start of program execution because H1 
and P2 take precedence, in the indica- 
tor hierarchy (see Figure 11), oyer 
Zero-cr«-Blank indicators. 

The fact that indicators C1-S9 
assigned tc Zero-or-Elank are on ini- 



tially cans tor caution in two 
respects: 

a. Detail-time output operations con- 
ditioned only by the ON status of 
any of these indicators will be 
executed befcre the first card has 
been read--i.e., during 1P time; 
and 

b. These indicators remain on until 
the first pertinent card has been 
read. 

For example, with the program- 
ming in Figure 27: If the first 
ten cards all happen to be type 25 
(i.e., the first type listed, to 
which card-type Resulting Indicator 
25 was assigned) , indicators 33, 
35, and 40 are on while these cards 
are processed — since no pertinent 
card (type 28) has yet been read to 
test the fields to which these 
indicators are assigned. 

2. Once the status of Field Indicators has 
been determined for the fields in a 
card, the status is net revised until 
the next card of a pertinent type is 
read. (Exceptions: Blank-After, 
described below; H1 and H2; and chang- 
ing the status of a Field Indicator by 
an entry in the calculation specifica- 
tions.) For example: 

The status of the Field Indicators 
in lines 03 and 04 is revised only 
when a card with a card-type 
Resulting Indicator 25 has been 
read; the status cf those in lines 
09-11 only when a card with Eesuit- 
ing Indicator 28 has been read. 
This fact must be borne in mind 
when conditioning calculation or 
output specifications by these 
indicators . 

The H1 and H2 indicators are 
always reset by the program before 
a new card is processed (after 
restart by means of the CPU START 
key) , if net set cf f before then by 
an instruction in the calculation 
specifications. 

Indicator 03 appears as Field 
Indicator in line 05 and line 12. 
Its status is therefore revised for 
each card. 

3. Field Indicators for Zero-or-Elank 

(eels. 69-70) are turned on immediately 
when the correspendinq field is set to 
blank or zero by entry of a B in col. 

39 (Blank-After) in the cutpu t-f crmat 
specifications. Any ether Field Indi- 
cator previously set (for Plus or 
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Minus) for the field is not turned off 
therety. For example: 
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GENEEAL INFORMATION 

The calculation specif icaticns (see Figure 
28) particularize 



1. The cperaticns to be performed by the 
cbiect croaram urcn 



a. the input data, and 

t. data obtained as a result of ether 
calculations 

2. Look-up of data contained in tables 

3. The identification of data conditions, 
to facilitate control cf subsequent 
calculations and cf cutput cperaticns 
based en calculation results. 



Three general rules govern the writing 
of calculation specifications: 

1. Each operation is specified on a sepa- 
rate single line cf the form (and, 
hence, punched into a separate specifi- 
cation card) . 

2. Calculation operations to be performed 
at detail time must all be specified 
ahead of those to be performed at total 
time. However, total-time calculations 
need not be grouped by level cf total 
(i.e., different L-indicator lines may 

be intermixed) . 

3. within the grouping of detail time or 
total time, calculation operations are 
performed in the order in which they 
are specified. (See GOTO, below, for 
exception. ) 
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Figure 28. The Calculation Specifications Form 
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Note: At the beginning cf cb ject-prcaram 
executicr, fields defined as alphameric are 
tlank (hexadecimal 40) and those defined as 
numeric certain "unsigned" zercs (all 
zeros, except low-order position is hexade- 
cimal OF). Therefore, nc calculation spec- 
ification is required solely to clear 
fields at the start. 

The entries for the Calculation Specifi- 
cations form are divided intc three cate- 
gories, as shown in Figure 28. 

1. Conditioning Fields—Columns 7-17 

Indicator codes entered in these fields 
determine the conditions under which 
the calculation specification in that 
line is to be executed. 

Note: Grouping specification lines 
with identical cenditicning indicator 
entries (in cols. 7-17) saves core 
storage space and program execution 
time . 

2. Calculation Fields — Columns 18-53 



9-17) provide for determining--within the 
limits established by the contents of cols. 
7-8— which ether conditions, in terms cf 
status cf indicators, must be satisfied to 
implement the specifications in that line. 

The four fields (cols. 7-8, 9-11, 12-14, 
15-17) are in an AND relationship; i.e., 
all stated conditions must be satisfied for 
the specifications in that line to be 
executed . 

There is an essential difference tetween 
applying indicators as cenditicninq 
indicators—as exemplified by cols. 7-17 
here, and eels. 23-31 in the output-format 
specifications — and assigning indicators as 
Resulting or Field Indicators—as exempli- 
fied by cols. 19-20, 59-60, and 65-7C in 
the input specifications, and cols. 54-59 
in the calculation specifications: 

A Resulting or Field Indicator changes 
status (en or off) as the condition with 
which it is associated is tested, and the 
criterion to which it is assigned is either 
satisfied or not satisfied. 



Entries in these fields define the kind 
of operation tc be performed, the data 
involved in the operation, and the 
result field. 

3. Result-Testing Fields—Columns 54-59 

Any indicator code may be entered in 
any cf these Resulting Indicators 
fields. When the operation specified 
in a line has been executed, the indi- 
cator (if any) assigned to the cendi- 
t i en that accord s with the r e su 1 t is 
turned on; those (if any) assigned to 
ether result conditions are turned off. 

These Resulting Indicators can be 
used as conditioning indicatcrs to con- 
dition the execution cf ether calcula- 
tion specifications and/or output 
specifications. 



CONDITIONING PERFORMANCE CT CALC IJI ATICNS 
(COLS. 7-17) 

If the conditioning fields (cols. 7-17) are 
Hank, the specifications in that line are 
executed at detail time cf every program 
cycle. 

The Ccntrcl-Level field (cols. 7-8) pro- 
vides for determining whether a calculation 
specification is to be performed at detail 
time in the program cycle (i.e., cols. 7-8 
are blank),. or at total time of a giver 
level (i.e., there is an I-indicatcr entry 
in eels. 7-8) . Ihe Indicator fields (eels. 



The same indicator, reflecting a crite- 
rion previously tested, may then be applied 
to condition a calculation or cutput speci- 
fication tc be executed only if the indica- 
tor is on, or if it is not on, as desired. 
Applying the indicator as a conditioning 
indicator never changes its status (on, or 
not en) . 

Control level— Cols. 7-8 



If this field is blank, the operation spec- 
ified in that line is to be executed at 
detail time — and subject to conditioning 
indicators specified in cols. 9-17. 

If a Ccntrol-Ie vel indicator code (10, 
L1-I9, or LR) is entered in cols. 7-8, the 
operation specified in that line is tc be 
executed at total time, provided the parti- 
cular L-indicatcr specified is on— and sub- 
ject to other conditioning indicators spec- 
ified in cols. 9-17- 

If a Control-Level indicator L1-I9 is 
turned on in the normal manner — by a con- 
trol break — it is en from (and including) 
the total time following the last card of 
the previous ccntrcl group through detail 
time of the first card of the new control 
group. The last-record indicator (LR) is 
on during total time fcllcwinq the last 
data card of the appropriate file (s) . L0 
is normally always on. Any of the indica- 
tors LR, L9-I2 — if turned en in the stan- 
dard fashion- — also turns on all lower-level 
L-indicators (except 10) for the same 
period. 
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The operation of I-indicators, and 
detail ard total times in the program 
cycle, have teen thoroughly covered else- 
where. See EPG Program logic (Figure 6) , 
Eelaticn cf Total Time tc Card Movement, 
and Total-Time Processing en "Eu n-In " — all 
under Program logic Fl ew ; 11-19, Special 
Considerat ions for Indicatcrs H-19 en 
"Eun-In" , 10, IE, and In di cator Hie rar chy 
(with Figure 11) — all under Indicators; 
Control levels — under Matching cf Files; 
Deci mal Positions (col. 52), Field Name 
{cols. 53- 58 ) : De fining the Sam e Da ta 

tro l level (cols. 59-6 0), and Fi eld-Becord 
Ee laticn (eels. 63-64) — all under Input 
Spec if ic a tic ns. 

Indicators — Cols. 9-17 



Any indicator may he specified in cols. 
9-17. The programmer should remember, how- 
ever, that the status of an indicator may 
have a different significance at total time 
and at detail time — and it is the entry, or 
absence cf entry, in eels. 7-8 that deter- 
mines whether the specifications in that 
line are executed at tctal or detail time. 
For instance: 



1. At total time, the ME indicator 

reflects the matching status of the 
previous card--nct that of the new cai 
that caused the control break. At 
detail time, however, ME reflects the 
matching status of the card being 
processed. 



If these fields are hlank, the specifica- 2. 
tions in that line are executed in every 
program cycle — subject tc the status of any 
I-indicatcr that might be specified in 
cols. 7-8 (see Con tr ol lev el, eels. 7-8, 
above) . If eels. 7-8 are also blank, the 
specifications are executed at detail time 
cf every program cycle. 
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With Ccntrol level (cols. 7-8) blank, 
an I-indicator (11-19) in one of the 
fields in cols. 9-17 does not pertain 
tc an operation at total time--it con- 
ditions the specifications to be 
executed only at detail time of the 
first card of a new ccntrol grcup cf 
that, or higher, level. 



An indicator code in eels. 1C-11, 13-14, 
cr 16-17 instructs the prcgram tc execute 
the specif icatiens in that line enly if 
that indicator is on. If an N (=Not on) is 
entered in the column preceding the indica- 
tor code (ccl. 9, 12, cr 15, respectively), 
the program is instructed to execute the 
specifications in that line enly if the 1. 
associated indicator is ret en. 

Note : Any IECIIC character ether than N in 
col. 9, 12, or 15 has the same meaning as 
a blank. 

Up to three different conditioning indi- 
cators may be designated by entries in the 
three Indicators fields for one specifica- 
tion line. Each may be required tc be on 
(first column of relevant Indicators field 2. 
tlank) , cr off (N in first column of rele- 
vant Indicators field), as a cenditien cf 
execution cf the specifications in that 
line. 



Assuming only standard methods of assignina 
and utilizing Eesulting and Field Indica- 
tors, the Indicator codes entered in these 
fields (eels. 9-17) condition execution of 
a calculaticn specification based on the 
following factors: 



If the indicator was assigned as card- 
type Eesulting Indicatcr in the input 
specifications (cols- 19-20), execution 
cf the calculaticn specification is 
confined to the processing of a parti- 
cular card type, or--if N is entered 
(in the first column of the relevant 
conditioning Indicators field) — to any 
card type other than that particular 
one. 
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3. 



If the indicator is assigned as a 
Resulting Indicator in this cr another 
line of the calculation specifications 
(cols. 54-59 — discussed later) , execu- 
tion of the calculation specifications 
in this line is controlled by the 
result of a calculation performed ear- 
lier. Note that: 

a. The Resulting Indicator reflects 
the result last obtained. If the 
pertinent calculation has net yet 
teen performed, the indicator is 
eff (unless it is assigned tc Zerc- 
or-Blank, when it is on initially 
and is alsc turned en by Elank- 
After--see Out put-Term at 
Speci fica t ions ) . 

If the pertinent calculation is 
only performed under certain condi- 
tions, the indicator may still 
reflect an earlier — possibly 
obsolete- -re suit. 

b. If the conditioning Indicator 

(cols. 9-17) is also a Resulting 
Indicator in the same line (cols. 
54-59), its statts is net changed 
by the instructions in that line 
until after the specifications in 
the line have been executed. 

Remember that, at tctal time, a 
card-type Resulting Indicator is that 
of the next card, whereas a Field Indi- 
cator is based on a previous card. 
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Figure 29. Calculation Ccnditicning 
Indicators 

The operation of indicators, and detail 
and total times in the program cycle, have 



been thoroughly covered elsewhere. See 
sections Program_Lo3_ic_Flcw, Indicators, 
and Matchinjg_of_Files--all under Program- 
ming_ f or_R PG — General Information ; Re sult- 
ing Indicators, Control_Level, Matchin g 
Zi§l^.§A an ^ Zi§ld_Indicators — all under 
Inp ut Specifications; and Resulting In dica - 
to rs in Calculation Specifications, dis- 
cussed in this chapter. 



Figure 29 illustrates the use of condi- 
tioning indicators with calculation speci- 
fications. Only standard applications of 
indicators have been assumed; non-standard 
uses are encompassed by the explanations 
under Indicat ors in Program ming f or RPG; — 
General Information. 

Explanation of Entries in Figure 29 

Line_0_1 specifications will be executed at 
detail time (cols. 7-8 blank) of all cards 
(cols. 9-17 blank) . 

Lin e 02 specifications will be executed at 
detail time for all cards for which indica- 
tor 16 is on at that point. If, for 
example, indicator 16 is a card-type 
Resulting Indicator, the line is executed 
at detail time for all cards of type 16. 

Iine_C3 specifications will be executed at 
detail time for all cards for which indica- 
tor 16 is not on at that point. 

Line_04 specifications will be executed at 
detail time for all cards for which indica- 
tor 25 is en, and indicators 18 and H1 are 
not en, at that point. 

line "05 "specif icat Tens are executed at 
detail time of the first card of a control 
group, provided indicator 25 is also en at 
that point. If, for example, indicator 25 
represents a card type, the specifications 
in the line are executed at detail time of 
the first card of a control group, if that 
is a card of type 25. 

Line_06 specifications are executed at 
detail time if the MP indicator and indica- 
tor 16 are both on at that point. 
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total time. The L2 in eels. 7-8 specifies 
execution at total time if a Level-2, cr 
higher, ccntrcl treak occurred; i.e., fol- 
lowing the processing of the last card of a 
Level-2 cr higher control group. The spec- 
ifications are, however, further condi- 
tioned tc te executed only if indicator 10 
is also en at that time, and provided indi- 
cator L3 is not en. The latter condition 
(NL3) , implies that the specifications are 
only executed if there was nc ccntrcl treak 
higher than Level 2; the 12 in cols. 7-8 
implies that the control break must te at 
least of Level 2. Thus, execution of the 
specifications is confined to exactly a 
Level-2 ccntrcl treak. 

Note that, if indicator 10 is a card- 
type Resulting Indicator, it refers to the 
first card of the new ccntrcl group; if it 
is a Field Indicator, it reflects the sta- 
tus of an input field the last time a per- 
tinent card type was read preceding the 
control break. The data available at total 
time is still that from the last card of 
the ccntrcl group. 

Line 08 is executed at tctal time following 
the processing of the last card cf every 
control group: since a control treak cf 
any level turns en the L-indicatcr for that 
level and for all lewer levels, LI. turns on 
for a ccntrcl break of any level. The data 
from the last card of the ccntrcl group is 
still availatle at this tiire. 

Line 9 illustrates an application cf the 
L0 indicator. Assumptions are: it is 
desired to calculate a value at the end cf 
each page, tc be printed at the bottcm of 

coon paycj ca<— cpL (iiicu a v-v^u i_i_ v, j_ DicdA 

occurs at the same point. 

In order to calculate before forms 
advance to the new page, yet when it is 
already known whether a ccntrcl group has 
been completed and whether carriage- tape 
channel 12 was encountered at detail-output 
time, the calculation must be at total 
time: tctal time precedes overflew- time 
output. L-indicators for the beginning of 
a new control group are already en, and the 
overflow indicator is also en if carriage- 
tape channel 12 (i.e., the pcint fcr print- 
ing the calculated value at the bcttcm of 
the page) was encountered during the pre- 
ceding detail-time output. 

Indicator L0 designates that the speci- 
fications in the line are to be executed at 
total time, provided L0 is en (its normal 
state) . Indicator OF further designates 



(i.e., channel 12 encountered during pre- 
ceding detail-time output) for the specifi- 
cations in the line to be performed. Since 
the calculation is not desired at the end 
of a control group, NL1 suppresses it when 
a control break coincides with the end of a 
page. L0--which is defined as a Control- 
Level indicator--had to be used to associ- 
ate the line with tctal time since, by 
definitioncf the problem, no ether Ccntrcl- 
Level indicator is on when the specifica- 
tions in the line are to be executed. 

Li ne 10 specifications are executed at 
total time following the last data card cf 
the input (cr combined) file or, if there 
are multiple input (cr combined) files, the 
last pertinent file. (See Fi le Descr iptio n 
Specifications, col. 17, and In dicators , 
LR.) When LR is on, all other Control- 
Level indicators (LS-L1) are also en. The 
job terminates following total-time output. 

Figure 29 also illustrates that all spec- 
ifications to be executed at detail time 
must precede those tc te executed at tctal 
time; within tctal-time specifications, 
order need net be maintained by Control 
Level. 



SPECIFYING THE KINDS OP CALCULATIONS 
(COLS. 18-53) 

Entries in this section (cols. 18-53) of 
the calculation specifications define the 
actual calculations (or guasi-calculaticns) 
to be performed. The followina components 
of calculation operations are designated in 



1. The data fields that enter into the 
operation: Factors 1 and 2. 

2. The type of operation tc be performed 
on the data: Operaticn. 

3. The form of the result: Result Field 
name, length, decimal-point location, 
half- adjustment. 

The fields in this section are described 
in the sequence that lends itself best to a 
clear understanding of their relationship, 
rather than adhering strictly to the order 
of fields in the specifications. 

Note: At the beqinning of program execu- 
tion, Factor and Result Fields are blank 
(if alphameric) or "unsiqned" zero (if 
numeric) . 
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Iactor_l"Ccls.._18227 and 
Iactcr_2--Ccls.._33-4 2 

Factor 1 and Factor 2 contain the names cf 
the data fields, or the actual data 
(literals) , that provide the source infor- 
mation for the majority of the operations. 
Some operations involve both Factors; some 
only utilize one; and a few operations do 
net use a Factor field. 



Field Naire 

If the Factor contains a field name, the 
program obtains the data from the core 
storage location it has assigned to that 
name. The field name must either have been 
defined in the input specifications (eels. 

46-58), cr as a result field (eels. 43-52) 
in seme line of the calculation specifica- 
tions (this may be an earlier cr later line 
in the calculation specifications, or the 
same line), cr as a table name in the File 
Extensicn Specifications. 

If a field whose name is used in the 
calculation specifications appeared in the 
input specifications, it must have been 
fully defined there, and cannot be defined 
differently (as to format, size, decimal 
point) ir the calculation specif icatiens . 
A field need be defined enly once, although 
an identical redefinition is permitted. 

Field names must be recorded in the Fac- 
tor fields left- justified (i.e., begin in 
col. 18 cr 33, respectively) . 



literals 

A literal is the actual data to be used in 
the calculation, rather than a field name 
representing the location cf the data in 
core storage (see also Literals, under 
Definition of Ter ms ) . The program is able 
to distinguish between literals and field 
names by virtue cf a restriction on the 
initial character (col. 18 cr 33, 
respectively) : 

The first character cf a n umer ic liter- 
al is cne of the digits 0-9, a decimal 
point, a plus sign, cr a minus sign. 
(If European notation is specified in 
the EPG Control Card, a decimal comma 
takes the place of the decimal point.) 

The first character cf an alphame ri c 
literal is preceded by an apostrophe 
(')--card punch-combination 5-8. 

The first character cf a field nam e 
is cne of the 29 characters defined as 
alphabetic (the 26 letters of the Eng- 
lish alphabet, plus three specific 
symbols) — see Definition cf Terms. 



A literal--so long as it is always 
identical in all respects (including sign 
and decimal-point location, if any) — is 
stored by the program only once, no matter 
how often it is used in the program. Nu- 
meric literals may have a maximum length of 
ten characters, including the symbols (dec- 
imal point and/or sign) ; alphameric 
literals in calculation factors may have a 
maximum length of eight characters, plus 
two mandatory enclosing apostrophes, 
literals must be recorded left- justified 
(i.e., begin in col. 18 or 33, 
respectively) . 

Numeric_Literals. A numeric literal may 
consist of any combination of the digits 
through 9. One decimal point (decimal 
comma, if European nctaticn) and/or one 
sign may also be included, but no other 
characters or symbols. Its maximum total 
length is ten characters. 



Rules for Forming numeric literals 

1. Blanks must not appear within a numeric 
literal. 

2. If a sign is part of the literal, it 
must be the leftmost character. 

A plus sign is represented by the 
punch-combination 12-6-8; a minus sign, 
by an 11-punch. 

An unsigned numeric literal is 
treated as positive in arithmetic 
operations. 

The positive cr negative status of a 
numeric literal is automatically taken 
into account in arithmetic operations. 

3. One decimal point (card punch-combi- 
nation 12-3-8) can appear anywhere in 
the literal, even ahead cf the first 
digit. (If European notation, decimal 
comma applies instead.) 

When the literal is used in an 
arithmetic or compare operation, the 
program performs decimal alignment 
according to the position of the deci- 
mal point. If there is no decimal 
pcint in the literal, the program 
assumes the decimal point to follow 
immediately to the right of the last 
digit; i.e., the literal is assumed to 
be an integer. 

Alphameric literals. An alphameric literal 
consists of any combination cf characters, 
including blank, from the 256-character 
EBCDIC set (see Appendix D, Figure D1). 

An alphameric literal must be enclosed 
by apostrophes ('), card punch-combination 
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5-8. The first apcstrcphp. identifies the 
entry as an alphameric literal; the termin- 
al apostrophe signals the end of the liter- 
al (since blanks are valid in alphameric 
literals, the program has re other ireans of 
recognizing the end) . The reguirement for 
initial and terminal apostrophes limits the 
tody of an alphameric literal tc a iraximum 
of eight characters. 

An apostrophe reguired as part of the 
literal itself is represented by two apos- 
trophes; i.e., two consecutive columns, 
each punched 5-8. If such a literal is 
used for output, enly one cf the dual apos- 
trophes is punched or printed, and the por- 
tion to the right cf the internal apos- 
trophe is shifted left one position so as 
not to introduce a spurious blank. This 
limits an alphameric literal with cne 
internal. apostrophe to sever meaningful 
characters. 

Alphameric literals may be used for com- 
pare, mo\e, test zone, and table look-up 
operations; but they must not be used in 
arithmetic operations. 

Figure 30 depicts seme samples of Factor 
entries. While Factor 1 is shown. Factor 2 
would be egually applicable. 

Explanation cf Entries in Figure 30 
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Figure 3C. Factor Entries 

l ine 01 shows a field name: the first 
character is alphabetic. The field must 
either have been defined in the input or 
file extersicn specifications, cr it must 
be defined as a Result Field (cols. 43-48) 
somewhere in the calculation 
specifications. 

When the specifications ir line 01 are 
executed, the Factcr-1 data is obtained by 
the program from the core storage location 
assigned tc NETAMT. 



Line_02 also shows a field name: 3 is one 
of the three symbols defined as alphabetic 
(see Definition of. Terms) . 



Lines 03-C7 illustrate numeric literals: 
the first character is numeric, or a sign, 
or a decimal point. 

The literals will be decimal-aligned by 
the program, in arithmetic and compare 
operations, in accordance with their speci- 
fied decimal point. When the literal 
includes no decimal point, it is treated as 
an integer. The literal in line 04 is 
therefore treated as (12500.), and that in 
line 07 as (1.). The plus sign in line 07 
must be punched as 12-6-8. 

Numeric literals without sign are 
treated as positive in arithmetic and com- 
pare operations; therefore, the literals in 
lines 03, C4, and 05 are positive. Note 
that a sign, if specified, must be leftmost 
(lines 06 and 07) . 

A numeric literal terminates with its 
rightmost character (digit or decimal 
point) ; it cannot contain blanks. There- 
fore, the literal in line 03 ends with the 
zero in ccl. 25; the literal in line 04 
ends with the zero in col. 22. Note that 
(except for a decimal comma in European 
notation) commas are not permitted in nu- 
meric literals: for example, the number in 
line C4 may not be written as 12,500. 

Lines 01, 05, C6, OS, 09, and 11 illustrate 
the maximum permissible lengths for the 
three types of Factor entries: six posi- 
tions for a field name; ten positions, 
including sign and/cr decimal pcint, for a 
numeric literal; and eight positions, plus 
the two delimiting apostrophes, for an 
alphameric literal. 

Li nes 08-11 portray alphameric literals: 
the first and last characters are 
apostrophes. 

Alphameric literals might, for example, 
be compared against data-field contents, 
serve as search arguments in a table look- 
up operation, or be printed out after being 
moved into a data field. They cannot be 
used in arithmetic operations. 
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Line 10 also illustrates that an alpha- 
meric literal may contain digits. If 
desired, a numeric value may be expressed 
as an alphameric literal ly enclosing it in 
apostrophes. (It cannot, then, he used in 
arithmetic operations.) 

Iine_jn shows that an alphameric literal 
may contain spaces and special characters. 

Throughout, note that all entries are 
left- justified. 

C£eration2zCols^_2 8-32 

Entries in these columns specify the opera- 
tion to te performed using the entries in 
Factor 1, and/or Factor 2, or Result Field. 
Each operation is specified fcy placing the 
appropriate operation cede in this field, 
left- justified (i.e., beginning in ccl. 
28) . Detailed information en the various 
operations is given in the section titled 
Entries in the Operation Fie ld . 

All numeric compare and arithmetic 
operations are performed according to the 
rules of algebra: signs are taken into 
account, and decimal alignment is 
automatic. 

Je s u lt_F i e Id— C c 1 s^_ 43 zH 8 

Ihe field name entered in Eesult Field 
(cols. 43-48) is associated ty the program 
with the core location at which the result 
of the operation is to be stored. (In the 
case of two particular operations, TES1Z 
and ICKUF, the entry in this field repre- 
sents the location of source information 
for the operation.) The user always 
references the field by the mnemonic name 

he assiared to it, and need _ never . concern 

himself with the actual cere stcraqe 
location. 

If the "^ield name appeared in the input 
or file extension specifications, it must 
have been fully defined there (as to size, 
format, position of decimal point) . The 
field name in Result Field then suffices to 
reference the stcraqe location, and no 
definition of the field is required in the 
calculation specifications. If the field 
name did net appear in the input or file 
extension specifications, the field must be 
fully defined once in the calculation spec~ 
ificatiens, so that the program car assign 
an appropriate cere storage location to it. 
The definition need not be in the first 
calculation specification line in which the 
field name appears. 

Defining a field in the calculation spec- 
ifications consists of: 

a. Entering a field name in Result Field 

(cols. 43-48) in any specif icaticr line 
to which the result field applies. 



The name must begin in ccl. 43 with 
one of the 29 alphabetic characters, 
may continue with alphabetic or numeric 
characters, and may be one to six cha- 
racters long. (See Def initicn_of 
Terms, for "alphabetic" and "numeric" 
characters — neither permits embedded 
blanks. ) 

Within these rules, any name may be 
assigned; except that names starting 
with PAGE and TAE are reserved for spe- 
cial uses (described later) . Names 
beginning with IN have a special mean- 
ing in RLAEL specifications; when used 
in other operations, they must not 
duplicate the exact characters INxx in 
the Eesult Field of an RLAEL line. 

b. Specifying the length of the field — see 
Field Length (cols. 49-51). 

c. Defining the format--see Decimal Posi- 
tions (col. 52) . 

The same field name can be used in any 
number of calculaticn specifications; but, 
once defined in the input, file extension, 
or calculation specifications, it must 
never be redefined differently. Cnce 
defined, it need never be redefined at all 
--the field name alone becomes an adeauate 
reference; but, if it is redefined, it must 
be fully and identically redefined: the 
contents of Field Lenqth (cols. 49-5 1) and 
Decimal Positions (ccl. 52) must then be 
identical wherever the field name is 
defined or redefined and, if the field was 
def ined in the input or file extension spec- 
ifications, Decimal Positions and field 
length there must correspond. (But see 

jiafe-, - un-dex-F-xe-ld I-e -nq-th y -- c-Gn-e-er-n-irng- p-aeke e 

input fields. ) 

Field length — Cols. 49-51 

This field is left blank unless the result 
field is to be defined (or redefined) in 
this line--see Besult_Field, above. 

If the Result Field is to be defined (or 
redefined) in this line, enter the lenqth 
of the result field for which core storage 
positions are to be assigned. (Leading 
zeros may be omitted.) So that the user 
need not think in terms of internal machine 
operations, the length is specified in 
terms of number of characters or diqits, 
regardless of whether the field is defined 
as alphameric or numeric. 

Internally, numeric fields are stored in 
packed-decimal format (see Appendix D) and 
normally consume less core positions than 
the number of diqits in the field; never- 
theless, Field lenqth is specified here as 
though each dicit occupied a separate byte 
(^ull position) in cere. "Therefore, in 
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computing the size of results based en the 
factors used in an operation, an input 
field that was read in packed format (P in 
col. 43 of the input specifications) must 
be assigned, in the calculation specifica- 
tions, a length eguivalent to its digit 
capacity — not its columns. For example, a 
packed input field of 5 columns must be 
treated in the calculation specifications — 
as a factor, when defining a result based 
en it, or if redefining it — as being 9 
positions long. The general fcrirula is: 
field size = 2n- 1, where n = number of card 
columns in the packed input field. 

Maximuir ienaths for factors and result 
fields ir. calculation specifications are: 

15 positions for a numeric field; 

256 positions for an alphameric field; 
except: 40 positions each when compar- 
ing two alphameric fields, and 80 posi- 
tions for table look-up. 

(For definition of a field as numeric or 
alphameric, see Decimal Positions- — Ccl. 52, 
below and under Input Specifications.) 

If the length assigned to the Result 
Field of an arithmetic operation is insuf- 
ficient to accommodate the result of the 
operation, the result is first decimal- 
aligned — as are all arithmetic results — and 
then the excess high-order (most signifi- 
cant) positions are truncated (see Figure 
31) . Resulting Indicators assigned (see 
cols. 54-59) are then tased en the retained 
digits crly. 

If Half-Adjust is specified (see ccl. 
53) , Field Length applies to the length of 
the result field after half-adjustment has 
been executed (i.e., after the extra posi- 
tion required for half-adjustment has been 
dropped) . 



An entry (C-9) in Decimal Positions 
defines the associated result field as nu- 
meric and specifies the number of positions 
to the right of the decimal point. If no 
decimal places (i.e., only whole numbers) 
are to be retained in the numeric result, 
is recorded in col. 52. If a field that 
must be defined as numeric is not used in 
compare or arithmetic operations, any digit 
C-9 (within field-size limit) may be speci- 
fied, regardless of actual number of deci- 
mal places. 

Fields used- in arithmetic operations or 
numeric ccrapare— or to be edited or zero- 
suppressed for output — must be defined as 
numeric. Arithmetic operations comprise 
addition, subtraction, multiplication, and 
division (and movement of remainder) . In 
these operations, the program performs 
automatic decimal-point alignment, in 
accordance with the decimal positions that 
have been designated for the fields 
involved. Wove operations to a numeric 
field also require a Decimal Positions 
entry where the result field is defined, 
but decimal alignment is not automatic (see 
MOVE and MCVFL , below) . 

The number specified in Decimal Posi- 
tions (col. 52) must neither exceed 9, nor 
be greater than the field length specified 
for the result field. It may, however, be 
greater or less than the number of decimal 
digits that result from the operation, pro- 
vided the assigned field length is large 
enough. If the Decimal-Positions specifi- 
cation is greater than the number of deci- 
mal places that result from the arithmetic 
operation, an appropriate number of zeros 
is appended at the right; if it is smaller, 
the excess right-hand positions are trun- 
cated after completion of the arithmetic 
operation. (If Half-Adjustment is speci- 
fied by H in col. 53, truncation takes 
place after half -ad jus tment . ) 



Decimal Positions — C cl. 52 

Column 52 is left tlank if: 

The operation does net invclve a result 
field ; or 

It is desired to define the result 
field as alphameric; or 

The result field has been defined else- 
where (in the input specifications, the 
file extension specifications, or 
another calculation specification 
line) , and it is not desired to rede- 
fine it here. Once defined, it need 
never be redefined (if redefined, the 
contents of Decimal Positions, ccl. 52, 
must agree with the original 
definition) --see Result Field, atove. 



Fiqure 31 itemizes the contents of the 
result field and the position of the deci- 
mal point for a sample multiplication, for 
different Field-Length and Decimal- 
Positions specifications. Note that it is 
not possible to truncate the right-hand 
position (s) to the left of the decimal 
point. For example, 121.86984 cannot 
become 12 by specifying Decimal Positions 
and a Field Length of 2; instead of the 
right-hand digit, the most-significant 
digit is lest, and 21 (rather than 12) is 
retained . 

iialfzMJust—Col^SJ 

If this column is' left blank, the result is 
stored in the Result-Field core storage 
location exactly as calculated, retaining 
the number of decimal places specified in 
column 52. Column 53 must be left blank 
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for all ncn-arithmetic operations (and for 
a Divide operation that is followed ty the 
Move Remainder operation) . 
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In this FPG proqram, half-adjustment is 
actually performed as fellows, although the 
effect is the same as thcuoh the leftmost 
position to be dropped 'were increased abso- 
lutely by 5: 

1. The arithmetic operation specified in 
the line is completed. 



2. That portion of the original result 
that is to be drcpped--i.e . , the digits 
in the positions to be dropped — is 
added algebraically, in the same posi- 
tions, to the entire original result. 

3. The excess right-hand positions are 
dropped. 

4. This final result, conforming to Field- 
Length and Decimal-Positions specifica- 
tions, is stored at the location 
assigned by the program to the Result- 
Field name. 



Note: Since half-adjustment operates upon 
the digits to the right of the last posi- 
tion to be retained, it is meaningless to 
perform half-adjustment unless the calcu- 
lated arithmetic result has at least one 
more decimal position than is to be 
retained. Otherwise, the positions to be 
retained cannot be affected by the half- 
adjustment, since there cannot be a carry. 



Multiplication: 98.76 x 1 .234 = +121 .86984 
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NOTE: 1 . Shaded area corresponds to number of Decimal Positions (Col. 52) greater than size of result Field Length (Cols. 49-51) - 

which is not permitted. 

2. Heavy borders outline the combination of Field- Length and Decimal-Positions specifications that provide correct results, 
for various numbers of decimal places, and various legitimate Result-Field sizes the user may wish to retain - 
based on the particular factors illustrated. 



Figure 31. Result Field Contents, after a Multiplication, for Different Field- T .enath and 
Decimal- Positions Specifications 
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DIGITS TO BE 

ADDED FOR 

HALF -ADJUSTMENT 


Half-Adjust 
operation 
not performed 


,5047 


+ ,95047 


/ 


,47 


,047 


, 47 


+ ,047 


+ ,5047 


- ,95047 


RESULT AFTER 
ADDING ADJUSTMENT 
DIGITS 


Half-Ad|ust 
operation 
not performed 


-00000140.00094 


+000000140.^0094 


-0139.9505,4 


+00139.95C|?4 


-000139.95094 


-139.95q94 


+0139.95094 


+O0140.0O094 


-140.,90094 


HALF^ADJUSTED 
FINAL RESULT 
TO BE STORED 


+0139.95047 


-00000140.0 


+000000140 


-0139.9505 


+00139.950 


-000139.95 


-139.950 


+0139.95 


+O0140.0 


-140 



LEGEND: ♦ indicate* point to the right of which digits are to be dropped 
before final result is stored in accordance with Decimal 
Positions specification in column 52. 



Figure 32. Examples of Half-Adjustment 
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n the number 
ed : The res 
s (say, a mu 

and a multi 
re multiplie 
etenticn cf 
half-ad justm 



ment by 

irst 

imal 

accom- 
umber 

tu 

Of 
Ult 

ltipli- 
plicand 
d) . We 
5 deci- 
ent 



computation wculd be based on a value in 
the 6th position — a dummy position without 
a significant digit, which could never 
cause a carry-cver tc the 5th decimal 
position. 



Figure 33 aives seme arbitrary exarrples 
of entries in calculation fields — ignoring 
conditioning Indicators entries (cols. 7- 
17) . The entries in Resulting Indicators 
(cols. 54-59) in Figure 33 are discussed at 
the end of the next section. 
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Equal 
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1 


C 












Z-A DO 


G R SPAY 


FSTMET 










HI 






2 
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FSTNET 


A DO 


bonus 


FSTHET 
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F5TNET 


SUB 


Advahc 


FSTHET 


6> 
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EXMPTN 
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Figure 33. Examples of Entries in Calculation Fields and in Result-Testing Fields 
(Resulting Indicators) 



Explanaticn of Calculaticn-Fields Entries 
in Figure 33 

Sp ec ification line 01 shews an operation 
(Zerc and Add) that uses cnly Factor 2 with 

_th^_-Se-suife---F-ie-14-nr ~I-t~-a-3rfre — iH-us-t-ra-tes- --■ 

defining a Result Field in a subsequent 
calculation specification (line 02) --eels. 
49-52 are Hank in line 01. 

line 02 shows the definition of a Result 
Field as JSTNET, six digits long, including 
two decimal places to be retained. 
Although the same Result Field was used in 
line 01, it is satisfactory to define it in 
a later line. (BCNUS is presumed to te 
defined in the input specif icatiens cr 
another calculation specification line.) 

Line 3 was inserted only tc show that a 
Result Field may te defined more than ence, 
provided that Field-Length and Decimal- 
Positions entries are identical. (ADVANC 
is presumed to te defined in the input spe- 
cifications cr another calculation specifi- 
caticn line.) 

Iine_04 portrays an operaticn (Ccmpare) 
that uses Factors 1 and 2, tut dees not 
involve Fesult Field. (FXMPTN is presumed 
tc te defined in the input specificatiens 



or another calculation specification line. 
GRSPAY is defined in line C9.) 



Line 05 shews an ope 
ir n vol ve s -crirry " Rie-grrit 
case, contains the n 
field. Decimal Posi 
because TESTZ applie 
data. The Result Fi 
to be defined in the 
or another calculati 
(If DTVSN did net ap 
ifications, it could 
entry in Field Lengt 
have to appear also 
laticn specification 
since TESTZ does net 
field.) 




Zone) that 

"> ±TI trfiaTs"" 

ource-data 
e blank, 
phameric 
is presumed 
f ications 
tion line, 
input spec- 
here by an 
, however, 

the calcu- 
Field , 

result 



Lin e 06 shews a Move instruction, which 
uses only Factor 2 and Result Field. The 
Move is to an alphameric field, because 
Decimal Positions (ccl. 52) is blank. 
Field Length is 24 positions, which 
requires definition of the field as alpha- 
meric: numeric fields are limited to 15 
digits. (IDENT is presumed to be defined 
in the input specificatiens or another cal- 
culaticn specification line.) 



114 Sys tent/3 6 C Fodel 20 CPS Pepcrt Program Generator 



lin e u / snows a Move of a numeric literal 
to a Result Held named INDEX, defiled as 5 
digits lcng including 2 decimal places. 
After the Kcve, INDEX represents 1C0.CC: 
the Hove cperaticn itself dees net perform 
decimal alignment. 

Lin e C8 shows a Result Eield (EIEIEC) 
defined fcr the maximum length (15) per- 
mitted fcr numeric data. Two decimal 
places are tc te retained; the second deci- 
mal position is tc be rounded (H in ccl. 
53) before the excess decimal positions 
are dropped, (FIELDS and PIELIE are 
assumed tc te defined elsewhere.) 

Line 09 defines GRSPAY as six digits lcng, 
numeric, "with two decimal places. This 
field is used as Factor 1 in line C4. 
(DNRALW is assumed to be defined 
elsewhere. ) 

lin e 1 shows an operation cede (SETCN) 
that utilizes neither Factor ncr Result- 
Field entries. 

line 1 1 specifies that a tatle of employee 
numbers (TABEMP) is to be searched fcr the 
number matching that stored for the field 
name EMPINO. If and when a match is fcund, 
the corresponding pay-rate entry in the 
table TAEPAY is to be made available fcr 
processing . 



TESTING THE RESUITS CF CALCUIATICHS 
(CCLS. 54-59) 

Entries in the Resulting- Indicators fields 
of the calculation specifications designate 
indicators that are to be set en or off, 
based on results of calculation operations 
or en direct indicatcr-setting instruc- 
tions. The status of these indicators may 
be used tc condition the execution of cal- 
culation and/or output specifications. The 
Resulting-Indica tors fields are used in 
five ways: 

1. To reflect the status cf the result of 
an arithmetic operation involving addi- 
tion, subtraction, multiplication, or 
division (or Move Remainder) . 



If t he resu lt is . . . the_ ind ica tor (if 

any) ass ign ed 
t o . . . t urns 
(or. rema in s) en 

Positive (excluding (j) — Plus (cols. 54- 

55) 
Negative --Minus (cols. 

56-57) 
Zero (including 5) — Zero or Elank 

(eels. 58-59) 

The indicators (if any) assigned to 
the conditions that do net apply, 



remain (or turn) off. If the same 
indicator is assigned to more than one 
cf the three alternative Eesulting- 
Indicatcrs criteria, it turns en if the 
result satisfies one cf these criteria. 



The setting cf the indicators cor- 
responds to the final result--af ter 
half -ad justment (if H is specified in 
ccl. 53), and after dropping cf any 
excess decimal places (per Decimal- 
Positions entry in col. 52). A final 
all-zero result, although signed as 
plus, causes only the indicator in 



zero-uj.-Dj.anK vCGj_s, 



C 0_CQ\ 



For example: 

If the calculated result is -0.099 
and 1 is specified in Decimal Posi- 
tions (col. 52), without half- 
adjustment, then the final result 
is +0.C 

This turns on any indicator 
assigned tc Zero-cr-Blank — not one 
assigned to Minus or Plus, although 
the value was negative before drop- 
ping of excess decinal positions, 
and is signed plus for the final 
result. 

If H is alsc specified (in ccl. 
53), then the final result is -0.1 
This turns on any indicator 
assigned tc Minus. 

A Resulting Indicator assigned to 
Plus (cols. 54-55) or Minus (cols. 56- 
57) is eff at the beginning of proqram 
execution. Each time the calculation 
specifications in the line have been 
executed, the status of the indicator-- 
cn or cff--is revised to reflect the 
result of the calculation. 

A Resulting Indicator 1-99 assigned 
tc Zerc-or-Elank — in specification 
lines involving these arithmetic 
operations — is en at the beginning of 
program execution. Its status is then 
revised, to reflect the result of the 
calculation, each time the calculation 
specifications in the line have been 
executed. If the Result Field is also 
an output field, any indicator assigned 
tc Zerc-or-Blank is also turned en (and 
the field is cleared) immediately when 
that output field is transferred to the 
output area for printing, punching, or 
interpreting if Elank-After (B in col. 
39) is specified for the field in the 
relevant output-format specifications. 
If Elank-After turns on a Resulting 
Indicator assigned to Zero-or-Elank, 



his dee: 



not turn off an indicator 



assigned to Plus or Minus in the same 
line. 
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If different indicators are assigned 
to Zerc-cr-Elank for the same field in 
several specification lines — as calcu- 
lation Resulting Indicator and/or input 
Field Indicator—only the earliest- 
appearing Zero-or-Elank indicator for 
the field is turned on by the Blank- 
After instruction. 

To reflect the result cf a comparison 
between two fields (see COMP operation, 
below) . 



If it§_ indicator ( jf 

any) assigned 

tc_. ii _turnj= [or 

remains) en 

Factor 1 > Factor 2 — High (cols. 54-55) 
Factcr 1 < Factor 2--Lcw (cols. 56-57) 
Factor 1 = Factor 2--Fcual (cols. 58-59) 

The indicators (if any) assigned to 
conditions that do net apply, remain 
(or turn) off. If the same indicator 
is assigned to more than one cf the 
three alternative Eesulting-Indicators 
criteria, it turns on if the result 
satisfies one of these criteria. 

Resulting Indicators assigned tc 
Compare operations are Off at the 
beginning cf program execution. Each 
time the Compare operation has been 
executed, the status cf these 
indicators — en or off — is revised to 
reflect the result of the comparison. 

3. To identify the zone in the high-crder 
position cf an alphameric field. For 
the specifics, see TESTZ operation, 
fc«ie w-. - H-e-ve-ve ry - i ir sim pixf re~dr ' fine am- " 
plete) terms: 

If the high- orde r the indicator ( if 

position any) assi gned 

co ntains . . . ic_ iii _turns i£L 

££IS.§in.§l_cn 



A 12-punch 
An 1 1-punch 
Neither a 12- 
nor 1 1-punch 



Plus (eels. 54-55) 
Kinus (eels. 56-57) 

Elank (cols. 58-59) 



The indicators (if any) assigned to 
conditions that do net apply, remain 
(or turn) off. If the same indicator 
is assigned to more than one of the 
three alternative Resulting-Indicators 
criteria, it turns on if the test 
satisfies cne cf these criteria. 

A Resulting Indicator 1-99 assigned 
to Zerc-or-Blark — in TISTZ specifica- 
tion lines — is on at the beginning of 
program execution. Its status is then 
revised, to reflect the result, each 
time the calculation specifications in 



the line have been executed. If the 
Result Field is also an output field, 
any indicator assigned to Zero-or-Blank 
is also turned on (and the field is 
cleared) immediately when that output 
field is transferred to the output area 
for printing, punching, or interpreting 
if Elank-After (E ?i col. 39) is speci- 
fied for the field in the relevant 
output-format specifications. If 
Elank-After turns on a Fesulting Indi- 
cator assigned to Zerc-cr-Blank, this 
does not turn off an indicator assigned 
to Plus or Minus in the same line. 

If different indicators are assigned 
tc Zero-or-Blank for the same field in 
several specifications lines — as calcu- 
lation Resulting Indicator and/or input 
Field Indicator—only the earliest- 
appearing Zero-or-Elank indicator for 
the field is turned on by the Elank- 
After instruction. 

4. In a table look-up operation: 

a. To define whether search is tc be 
for a table argument that matches 
the search argument, or for the 
nearest higher (or lower) — but 
unegual--tatle argument, or for 
either ; 

b. After the search, to reflect the 
type of match (if ary) between 
table and search arguments. 

The indicator that reflects the 
type of match achieved (Hiqh, Low, 
or Egual) turns (or remains) en; 
any indicator assiqned to the other 
C"c"n"<llTio~n"tu"rn~s''Tc"f "TeTFaTns] cffV 

If indicators are assigned both tc 
Egual, and to Hiqh or tc Low, Equal 
takes precedence when an exact match 
between table and search argument 
exists: the egual value is then 
selected, and the indicator assigned to 
Egual turns on. If the same Resulting 
Indicator is assigned tc two conditions 
(High and Equal, or low and Egual), the 
indicator turns on if either assigned 
criterion is satisfied. An indicator 
must be assigned to at least one of the 
three Resulting-Indicators fields 
(High, Low, or Egual). However, if the 
table arguments are net in sequence by 
search argument (ascending or descend- 
ing) , an indicator should only be 
assigned to Egual (cols. 58-59) . 

For specifics, see LCKUP operation, 
below. . 

Note: A Elank-After instruction in the 
output-format specifications has no 
effect on the Result Field or on an 
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indicator assigned to Equal for a ICKUP 
operation. 

5. To cause designated indicators to turn 
en or off by the operation cede SETON 
or SETOF, respectively. See SETON and 
SETOF operations, below. 

Points tcNote for Calculaticn-Sp eci fica- 
tions Re sulting Indicators 

1. Any indicators may be assigned in 
cols. 54-59. 

If indicators other than 01-99- H1. 
or H2 are used, the programmer must be 
conversant with the contents of the 
sections Program Logic Flow and 
IH^i^iors. 

If indicator H1 or H2 is turned on, 
the program will halt after processing 
of the card has been completed, unless 
that indicator has been turned off 
again before then by another calcula- 
tion specification. If the program is 
restarted after an E1 or H2 halt (by 
pressing the CPU START key twice), the 
H1 and H2 indicators are turned off by 
the program. 

2. Indicators 01-99 (and E1, H2 within the 
limits mentioned above) change status 
(on or off) enly when a specification 
has teen executed where the particular 
indicator is assigned as Resulting 
Indicator or Field Indicator. (Excep- 
tion: Zero-or-Blark indicator in con- 
junction with Blank^After instruction 
in output specifications — already dis- 
cussed in this section and under Pro- 
9£§I5_t53i5_Zl2^* ) Therefore: 

a. If the calculation specification is 
only executed for seme cards (i.e., 
there are conditioning Indicators 
entries in cols. 7-17), the Result- 
ing Indicators in that line may 
remain on or off from a previous 
card. 

b. Kcre than one calculation-specifi- 
cations Resulting Indicator can be 
en at the same time. 

c. If the same indicator is assioned 
as a Resulting Indicator in several 
calculation specifications, its 
status will be revised after each 
such specification has been 
executed . 

d. If a calculation Eesultirg Indica- 
tor is also assigned as an input- 
specification Resulting Indicator 



or Eield Indicator, its status is 
affected: card-type Resulting 
Indicators turn off when a new card 
has been read, and the one for the 
new card turns on before total-time 
calculations; Field Indicators 
change status before detail-time 
calculations. Both take priority 
over calculation Resulting Indica- 
tors (see RPG Program lo gi c. I ndi- 
cato rs and Indicator Hierar chy ) . 



rrV ^ ^ - 



r>A "i ^a + o-r 



as a calculation Resulting Indica- 
tor and as a conditioning indicator 
(Indicators, cols. 7-17) in the 
same specification line. Execution 
of the line is then contingent upon 
the status of the indicator as set 
by a prior operation (which could 
have been the previous time the 
specifications in the line were 
performed) . 

3. Although results of arithmetic opera- 
tions are always signed, a result value 
of zero — which carries the equivalent 
of a plus sign — turns en the Resulting 
Indicator assigned to Zero (cols. 58- 
59) , not Plus. 

The value in the Result Field of an 
arithmetic operation in this RPG will 
never be -0 (minus zero) . 

Figure 33, previously used to illustrate 
some calculation-field entries, also 
depicts the assignment of calculation 
Resulting Indicators of all of the five 
types: 

Line 01: Indicator H1 turns on if, after 
GRSPAY has been placed in the Result Field, 
the Result Field (named FSTNET) is nega- 
tive. Otherwise, it remains (or turns) 
off. 

Line_C^t: Indicator 25 turns on, after the 
contents of GRSPAY have been compared with 
the contents of EXMETN, if the former was 
found to be greater than the latter (Factor 

1 > Factor 2) . Otherwise it remains (or 
turns) off. 

Line 05: The zone in the hiah-crder posi- 
tion of a field named DIVSN is tested . If 
it is eguivalent to an 11-punch, indicator 

02 turns (or remains) en; otherwise, indi- 
cator 02 remains (or turns) off, and indi- 
cator 01 turns (or remains) on. 

Line_1_0 demonstrates hew three indicators 
(e.g.: 10, 15, 16) can be set on by means 
of the operation SETON. 
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TYPE OF 
OPERATION 
+ 




Columns 54-55 


Columns 56-57 


Columns 58-59 


PLUS 


HIGH 


MINUS 


LOW 


ZERO OR 
PLANK 


EQUAL 


Arithmetic 
Operations 
(except compare) 


If the 

Result Field 
contains a: 


Positive 
value 

(except o) 





Negative 

value 

(there is no 0) 





Zero value 

(5) 





Compare 
(CO MP) 


If the 

contents of 
Factor 1 
are: 





Higher in sequence 
(if alphameric) or 
algebraically greater 
in value (if numeric) 
than contents of 
Factor 2 





Lower in sequence 
(if alphameric) or 
algebraically smaller 
in value (if numeric) 
than contents of 
Factor 2 


— 


Equal in sequence 
(if alphameric) or in 
value (if numeric) 
to contents of 
Factor 2 


Table 
Look -Up 
(LOKUP) 


If the table 
argument 
(Factor 2) 
is: 





The nearest value 
higher than the 
search argument 
(Factor 1) 





The nearest value 
lower than the 
search argument 
(Factor 1) 


— 


Equal to the 
search argument 
(Factor 1) 



Fiaure 34. Summary of Conditions that Cause Calculation Resulting Indicators to Turn CN 
— in Arithmetic, Ccmpare, and Table Lcck-up Operations 



line 1 1 specifies a table lcck-up operation 
(LCKUP) . The entry of an indicator cede 
(02) in "Equal" (Cols. 58-59) instructs the 
program to search the argument table fcr a 
value that exactly matches the contents of 
the field EMFI.NO. If and when such a match 
is found, indicator 02 turns en. 



Figure 34 is a summary cf conditions — in 
arithmetic, ccmpare, and tafcle look-up 
operations — that cause Resulting Indicators 
assigned in cols. 54-59 tc turn en. 



ZNTPIJS_IN_THE_OPEEATI0N_?IEI_p 
iCpLS^_28-321 

The code for the operation to be performed 
is entered left- justified (i.e., beginning 
in col. 28) . Fiaure 35 itemizes, and 
briefly describes, the operations that can 
be performed, together with the correspond- 
ing mnemonic codes that are to be entered 
in cols. 28-32. The operations are grouped 
in Figure 35 by type. They are discussed 
by qrcup, because seme aspects of opera- 
tions are unique tc a type. 



Co mm e n ts _ JC c 1 s i _ 6 -7 4J_ 

Thje._c.gejc....jav_._.giLt.^ 

would like prirted cut, next tc the ether 
entries in the line, at object program, 
generation time. Apart from this printout, 
the data is iencred fcy the program. 



Figure 36 portrays graphically the 
calculation-specifications fields that 

apply. . t.C-.e_a.c3i— op e r a.ti..o jl.-. c cde The ...figure . 

is repeated in Appendix G, as fiaure G2, 
for convenient reference. 
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Type cf Cperaticn 



-+ 



Arithmetic 
Operations 



Clear Result Field and add Factor 2 

Subtract Factor 2 from Factor 1 
h 



Move 
Operations 



Hove Factor 2 into Result Field, left- justified 



h 



-+ 



Compare and Zone-Testing 
Operations 



Settina Indicators 



-+ 



Branching within RPG and 
to external E.A.L 
Routines 



Operation 



Add Factor 2 to Factor 1 



Operation 

Code 

(Cols. 28-32) 

ADD 



Clear Result Field and suttract Factor 2 



Multiply Factor 1 by Factor 2 



Divide Factcr 1 by Factor 2 



Move remainder of preceding division to a 
Result Field 



Move Factcr 2 into Result Field, right- 
justified 



Move Zone from lcw-crder position of Factcr 2 
to lc*-crder position of Result Field 



Move Zone from high-order position of alphamer- 
ic Factcr 2 to high-order position of alphamer- 
ic Result Field 



j. 

Hove Zone from low-order position of Factor 2 
tc hiqh-crder position cf alphameric Result 
Field 



Move Zone frcm high-order position of alphamer- 
ic Factcr 2 to lew-order position of Result 
Field 



Compare factor 1 to Factcr 2 



Identify the zone in the high-crder position cf 
an alphameric Result Field 



Set one, two, or three specific indicators on 
Set one, two, or three specific indicators eff 



Eranch tc another RPG calculation specification 
line 



Identify the name in Factcr 1 as a destination 
label tc vhich GOTO may branch 



Eranch tc an external B.A.L. routine 



Identify the name in Result Field as a field or 
Indicator tc be referenced in the external 
E.A.L. routine 

ITable Icck-up Operations! Table Icok-up 



Z-ADD 

SUB 

Z-SDE 



MUDT 



DIV 



MVE 



MOVE 



MOVED 



MLLZO 



MHHZO 



MIHZC 



MHLZO 



TFSTZ 



SFTCN 
SETOE 
GOTO 



"AG 



EXIT 



RLA*L 



LC^UP | 



Figure 35. Calculation Operations 
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(A) » Alphameric 
(N) * Numeric 

£9*0-.: .Eiiti^ _ Rco. . ite , d( M ax Le n gt h .. XflfW »_Aar J4 .._. 

(A-N)» Either, but both same 

* NOTE: The entries designated as required in Field Length, 
associated Result Field is not defined, elsewhere. 



f Reiultmq Indicator* not reloted to column 
(.headings; at least one required: •*-• 
Zero/ 
Plus Mews Blank 

R esul t i n g 1 Ak~ A«st~-n«- f eo 1 u i r e d ->c n _ H 3 

Indicators J —Optional 

cLrxl Decimal Positions are necessary only if the 



PIm/ 

High 



Minus/ Blank/ 

Law Equal 

" DOO OU-O 



Figure 36. "Fields Pertinent to Each Operation Code 



Explanation, of S ymbo ls Used in_Figure_36 

A solid straight line indicates that an 
entry is required in that field. A dotted 
straight line indicates that an entry in 
the field is optional. 

In the Eesulting-Indicators fields:- 

A straight dotted line signifies 
optional entries to which the headings 
Plus, Minus, and Zerc/Elank apply. 

A line connecting rectangles 
( O-O-O ) signifies that an entry is 
reguired in at least one of the three 
fields, and that the headings High, 
Low, and Egual — or Plus, Minus and 
Plank--apply. 



A line connecting circles {Q—Q-Q) 
signifies that an entry is reguired in 
at least one of the three fields, but 
that the column headinqs are not 
pertinent. 

Absence of any line, dots, or sym- 
bols signifies that an entry is net 
permitted in that field with that 
operation code. 

The length of the line always repre- 
sents the maximum entry. (It is to be 
understood that, where the line extends 
throuqh all ten positions in Factor, 
this refers to the maximum size of a 
literal, but field names are limited to 
six characters.) Entries shown as 
reguired in Field Length and Decimal 
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Positions are necessary only if the 
associated Result Field is net defined 
elsewhere (see ResuJ.t_Field, cols. 43- 
48, above) . 



All calculation specifications to te 
executed at detail time (eels. 7-8 blank) 
must be entered ahead of all those to te 
executed at total time (L-indicatcr in 
cols. 7-8). Within this grouping, the cal- 
culation operations are executed (cr 
bypassed—depending en cenditicning indica- 
tors) in the seguence in which they are 
entered--except when branching (see GOTO 
operation, below) . 

Note: 

1. Whenever a field that was defined in 
the input specif icatiens as packed (P 
in col. 43) is involved in an opera- 
tion, its length must be considered 
tantamount to a standard (unpacked) 
numeric input field with tte same digit 
capacity. The general fcrmula is: 
field length in calculation specifica- 
tions = 2n-1, where n = length of 
packed field in input specif icatiens. 

2. All data is output in true fcrm-- 
ccmplements for negative values are not 
a consideration. 

Arithmetic Operations 

General Points Applicable to Arithmetic 
Operations 

1. All source-data and result fields and 
all literals involved must he defined 
as numeric. 

2. The program performs automatic decimal 
alignment cf factors and results. 



Result Fields used in arithmetic opera- 
tions become signed plus or minus 
(i.e., hexadecimal C or D) the first 
time an operation is executed with the 
field as result field, even if the 
field was read as input without a zone 
cverpunch in the lew-crder position (or 
with a character in EBCDIC-table column 
A, B, or E) . Zero totals are signed 
plus (FECEIC-tatle column C) ; the 
result cf an arithmetic operation is 
never minus zero with this RPG. 



If the field is thereafter punched 
or printed without editing, zero- 
suppression, or first removing the zone 
by a calculation specification (see 
MHLZO or MLLZO, below), a zone occurs 
ever the digit in the lew-order posi- 
tion, as follows: 

11-punch if field contents are 

negative; 

12-punch if field contents are 

positive or zero. 



Similarly, if the low-order position 
of such field is later moved into an 
alphameric field, the sign may move 
with it (see MOVE or MOVEL instruction, 
below) . If that position in the new 
field is then tested fcr zenes (see 
TESTZ, below) , a positive or zero value 
will yield Plus (indicator in cols. 
54-55) . 



The program performs arithmetic opera- 
tions, and signs the results, in accor- 
dance with the algebraic laws of signs 
— see Figure 37. 
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CP. CODI 

I 4 

ADD 



Z-ADD 
| 4 



SUB 



4 

Z-SUB 
4 



MULT 



h- 



DIV 



MVR 



SIGN IN 
FACTOR 1 



SIGN IN | SIGN OF 
FACTOR 2 | RESULT FIEID* 
+ 

+ I + 

I 

4 — 



| SIGN OF 

I REMAINDER* 



1_ 



— 1 



Sign cf larger absolute value 



— 4- 
I 



4- 



+ | Sign of larger absolute value | 
+ 1 + I 

I ~ I 

+ | - if Factor 2 > Factor 1 ; otherwise + | 
4 (.. 

|- if |Factor 1| > |Eactor 2|; otherwise +| 
4 h 

I + I 



1 



! 
— 4 



1 



j_ 






I 
I 






+ I + 

I + 



H 

1 






=F 



I 



I 

4 



♦Note: Excluding a Result of zero. 

A result of zero is always signed plus. 

legend: | | represents "atsclute value of" 

Figure 37. Signs in Arithmetic Operations 



5. All arithmetic-operation source fields 
must contain valid digits: Considering 
an input field before it is packed by 
the program, the character in each 
column must be represented in rows 0-9 
cf the EECDIC table (Appendix D, Figure 
D1) . For packed input data, the equi- 
valent valid EBCDIC characters vere 
described under Packed (col. 43) , in 
IUjEU jt_S_£ ec if ic at ic r s . 



6. 



Any characters that do not represent 
digits (or, digit plus sign in the low- 
crder position) cause an abortive pro- 
gram step. 



The Factors and Result Field in an 
arithmetic operation may each involve 
the same or different field names. 
(E.g.: A+B=C, orA+C= C, or C 
+ £ = C , or C + C = C ' , or a + A = C, 
or E + E = C. ) 



122 System/36C Kodel 20 CES Report Frcqraio Generator 



7. 



8. 



9. 



10 



The execution of any arithmetic opera- 
tion may he made contingent en the sta- 
tes cf conditioning indicators speci- 
fied in Control Level (cols. 7-8) and/ 
or ir. Indicators (cols. 9-17). 

Resulting Indicators may be assigned to 
Plus, minus, and/or Zero-or-Elank 
(cols. 54-59) to test the result of any 
arithmetic operation. 

With one exception (DIV, when followed 
ty MVF) , the result of any arithmetic 



operation cs ] 
col. 53) . 



ialf-ad justec 



Fields that provide only source data-- 
as contrasted with receiving result 
data^-for an arithmetic operation are 
not changed in any way (including sign 
status) ty the operation. Even in the 
multiplication and division operations, 
the original values cf factor 1 anc 
Factcr 2 are preserved (unless the same 
field name is used for the Eesult 
Eield) . 



11. The Eesult Field must te defined in the 
same, or another, calculation specifi- 
cation line, or it mrst have been 
defined in the input specifications. 

Eelationship Between Size cf Factors and 
Results 

(See also Figures 21 and 22) 

Source-data fields and result fields are 
limited to a maximum length cf 15 posi- 
tions; i.e., 15 digits plus sign. (Internal- 
ly, in the CPU, this represents 8 bytes.) 

However, the immediate (temporary) 
result of an arithmetic operation (in a 
work area assigned by the program) — before 
it is moved by the program to the Eesult- 
Field area — may be as large as can be pro- 
duced by the source-data fields and the 
operation. This presupposes that the ini- 
tial result contains enough decimal places 
to drop--and that the Decimal-Positions 
entry (ccl. 52) specifies the appropriately 
reduced number of decimal places — so that 
the retained number cf digit positions does 
not exceed 15. 



decimal places that result from the opera- 
tion, an appropriate number of zeros is 
appended at the right and the number of 
high-order positions is reduced according- 
ly, to remain within the Field Length 
specified . 



Note: In the operations 
and Z-SUE, arithmetic eve 
Resulting Indicator assig 
result status (+, -, or 
for that specification li 
the indicators to be turn 
ditions to which this can 
listed as reguiring enly 
in the case of Z-SUB) or 
Processi ng of Object Prog 
Specifications, in Append 



ADD, SUB, Z-ADD 
rflcw may cause a 
ned to a different 
) to be turned on 
ne, or cause all 
ed off. The con- 

six bytes (or 18, 
core storage under 
ram, Calculation 
ix A . 



During program exec 
of arithmetic overflow 
gra mm i nq Tips for a te 
the eguivalent, for re 
specifications of less 
program generation, a 
("Eesult field may net 
printed if the size of 
or division factors in 
ically cause the resul 
mal alignment, to exce 
fied for Eesult Field. 
% printed if a Factor fi 
subtraction operation 
Field size, after deci 
(Note: This message i 
the MVE operation.) C 
with the particular da 
will knew that a resul 
the theoretical maximu 



uticn, no indication 

is given. (See Pro- 
chnigue to accomplish 
suit- fie Id-length 

than 15.) During 
warning message 
te large enough") is 
the multiplication 
volved could theoret- 
t, after proper deci- 
ed the length speci- 

The same me-saae is 
eld in an addition or 
exceeds the Eesult 
mal alignment, 
s net provided for 
ften, by familiarity 
ta involved, the user 
t field smaller than 
m suffices. 



Guarding against exceedina result-field 
capacity is based en the rules of algebra: 

1. Addition and Subtraction 

The maximum number of significant 
digits that can result from the opera- 
tion is equal to the number of: 



decimal places \ each from the 

+ places to the ( factor with the 

left of the I greater number of 

decimal point ) such places 
+ 1 
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final 

s specifi- 

1 number of 



For example: 

Factor 1: + 9994567898642.06 

-(SUB) Factor 2: - 568 0975310.25791 

= + 10CC0248873S52. 31791 

Such an operation is legitimate, 
although the initial result exceeds 15 
positions — provided the Eesult-Field- 
Length (cols. 4S-51) and Decimal- 
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Positions (ccl. 52) specifications have 
the proper relationship, and the 
Eesult-Field-Length specification is 
not qreater than 15. For instance: 



ISpecified | 
j T 1 

Deci- | 
Result- 
Field 
Length 
| 

15 



15 
14 
15 
12 
15 



ual | 
Posi-| 
ticnsjfinal Result-Field contents 

| +10000248873952.3 OK 
| + C1000024£8"73952 OK 
I+1C00C248873952 OK 
|+0C002488 73 9 52.3l)high- 
I+CCC248873S52 lorder 
| + 24 88 73 95 2. 31 79 lOl digits 
I 'truncated 
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the number of Decimal Positions speci- 
fied exceeds the significant cv.es that 
can result frcm the operation, an 
appropriate number of zeros is appended 
at the right and a corresponding number 
cf high-order positions truncated. 

2. Multiplication 

The maximum number of significant 
diqits (including decimal places) that 
can result frcm the operation is equal 
to the sum of the number of positions 
in the two factors. 

The resulting number of pesitiers 
always includes a numter of decimal 
places equal to the sue cf the numter 
of decimal places in the two factcrs. 
For example: 



Factor 1 : 

X(MULT) 
Factor 2: 



-9876418. 34255073 



+ 12 3iK6eS5J0 2732 4 

-1219431C126.6C 7 6 C5 52176C66146 52 



i.e., 15 places x 15 places can result 
in 30 places, and 8 decimal places x 11 
decimal places always results in 19 
decimal places. The total of 3G 
places, minus 19 decimal places, equals 
11 non-decimal places. 



Thus, in this example, any Besult- 
Field-Ienqth specification from 11 to 
15, with associated Decimal-Positicns 
specification frcm to 4, respective- 
ly, prevents loss of any hiqh-order 
position in the result field. For 
instance: 



ISpecified 



Result- 
Field 
Length 



15 
15 
12 
12 
11 
11 
15 



Deci- 
mal 
Posi- 
tions 



final Result-Field contents 



-12194310126.6076 OK 
-001219431C126.6C OK 
-12194310126.6 CK 
-C 12 19431 126 CK 
-12194310126 OK 
-219^310126.6 jhiqh- 
-194310126. 6C76 05 (order 
' d iqits 
truncated 



The followinq formula can be used to 
determine whether leftmost positions 
will be truncated: 



L ± - D ± + L 2 - D 2 + Er = Lr where 



T,r 

Ii 
D± 

L s 
D 2 

Dr 



Result-Field Tend th s pici f~ie~cT~ 

(cols. 49-51) < 15 
length of Factor 1 
numter of decimal places in 
Factor 1 

length of Factor 2 
number of decimal places in 
Factor 2 

number of decimal places specified 
(col. 52) to be retained in the 
result field (product) 



If Lr turns out to be qreater than 
the specified (cols. 49-51) Result- 
Field lenqth: 

a. Either tr must be increased (tut it 
must not exceed 15); and/cr 

b. Dr must te reduced (but it cannot 
be negative) ; and/or 

c. It must te known, from the nature 
of the data, that the product will 
contain appropriately fewer signi- 
ficant hiqh-order diaits then the 
theoretical maximum. 
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,^-r,^ .-.•£ + 1, ~ -> I 



1-ll.l-CC l-C >-- 11 11 -L~ 



ques can be employed tc satisfy the 
equation, the multiplication cannot be 
performed in its present fcrm. 



A possible remaininq strataqem is to 
increase the number of decimal places 
defined for the Factors (elsewhere in 
the calculation specifications, or in 
the input specif icatiens, as the case 
may be), without increasinq the overall 
lenqth of the Factors. This provides 
more decimal places that can be dropped 
to fit the product within the limit Lr. 
by increasinq D^ and/or D 2 . While this 
reduces the order of accuracy of the 
result, it prevents truncation cf most- 
siqnificant positions. For example: 

Factor 1: 135.9 

Factor 2: x 85^.2_ 

Product = + 11578.68 

If Lr = 4 and Dr = (0 in Decimal 
Positions, col. 52), the Result Field 
would contain 1578 — a loss of the most- 
siqnificant diqit. If a Result Field 
qreater than 4 positions cannot be used 
for seme reason (say, room in the card) 
— and, of course, the illustration is 
similarly applicable where Lr = 15, and 
therefore cannot be increased—the 
definition cf number cf decimal places 
in the Factors can be chanqed: 

Factor 1: 13.59 

Factor 2: x_8_5_,.2 

+ 1157.668 

If Lr = 4 now, and Er = 0, enly the 
least-siqnif icant diqit to the left of 
the criqinal decimal point (namely, 8) 
is lest. (With half-adjustment, the 
result becomes 1158.) In subsequent 
operations with this result, the user 
then bears in mind the misplaced hypo- 
thetical decimal point. For instance, 
if the field is to be printed, a con- 
stant can be appended in the cutput- 
format specifications, and the value is 
then printed as 1157C (or 1158C, if 
half-ad jested durinq the multiplication 
operation) . This provides a value cf 
the proper number of places, and accu- 
rate to four significant diqits. 



3. Division 

Decimal Pos ition s. The number of deci- 
mal places in the result (quotient) of 
a division equals the number of decimal 
places in the dividend less these in 
the divisor. The RPG proqram pads 
either the dividend cr the diviscr with 
additional zercs at the riqht, if this 
is necessary to yield the number of 
decimal places specified in col. 52 
(Decimal Positions) --which cannot be 



negative. If nalf-aa justment is speci- 
fied (H in col. 53), the proqram auto- 
matically modifies padding to yield one 
extra decimal position (which is 
dropped aqain after half-adjustment) . 



Two examples: 

1. Half-adjustment not specified: If 
the dividend is 123.643 (3 decimal 
places), and the divisor is 1.41 (2 
decimal places) , the quotient con- 
tains 1 decimal place (3-2) - 

If col. 52 specifies 2 decimal 
places for the quotient, the pro- 
qram adjusts the dividend to 
123.6430 (now, 4 decimal places in 
the dividend - 2 decimal places in 
the divisor = 2 decimal places in 
the quotient) . If, on the other 
hand, is specified in col. 52, 
the proqram leaves the dividend 
unaltered at 123.643, but adjusts 
the divisor to 1.410 (now, 3 - 3 = 
0) . 

2. Half-adjustment specified (H in 
col. 53): If the dividend is 
579321 (C decimal places) , and the 
divisor is .46 (2 decimal places), 
the number of decimal places in the 
result would be neqative (0 decimal 
places in dividend - 2 in divisor - 

1 for half-adjust) , which is not 
possible. A minimum of three 0s 
must therefore be added to the 
dividend by the proqram. 

If col. 52 specifies decimal 
places for the result, the program 
adjusts the dividend tc 579321.000: 

2 decimal places in the dividend + 
1 extra dividend place for half- 
adjustment of quotient - 2 decimal 
places in the divisor = 1 decimal 
place in the initial result. After 
half-adjustment, no decimal place 
is retained. 

If 3 is specified in col. 52, 
the proqram adjusts the dividend to 
579321 .0C0CCC: 5 decimal places in 
the dividend + 1 extra dividend 
place for half-adjustment of quo- 
tient - 2 decimal places in the 
divisor = 4 decimal places in the 
initial result. After half- 
adjustment, 3 decimal places are 
retained . 

Expressed by formulas: 

1. Without half-adjustment 
specified . 

A + Di - J3 2 = Er (0 < Br < 9) , 
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where 

A = Adjustment factor 

Ei = numter cf decimal places 
in Factor 1 (dividend) 

D 2 = number of decimal places 
in Factor 2 (divisor) 

Dr = numter of decimal places 

specified (in ccl. 52) for 
Result Field (quotient) . 
< Dr < 9 states that the 
numter of decimal places 
in the final quotient must 
be zero cr greater but no 
greater than nine, because 
these are the limits for 
the Decimal-Positions 
entry in ccl. 52. 

If the equation is satisfied 
with A = 0, the dividend and 
divisor as stored (under their 
field names cr as literals) fit 
the result requirements. 



If A > 0, the 
program pads 
the dividend 

If A < 0, the 
program pads 
the divisor 



with a number 
of zeros, in 
decinal posi- 
tions at the 
right, cor- 
responding to 
the absolute 
value cf A. 



2. With half-adjustment (rounding) 
specified (H in col. 53) 



A + 
9) 



E ± - E 2 = Er + 1 (C < Dr < 



This equation "is TdenticaT to" 
the previous cue with this 
exception: The dividend must 
contain one more decimal place 
to yield the same number of 
decimal places in the final 
result. An extra decimal posi- 
tion is needed in the initial 
calculated quotient for half- 
adjustment; thereafter, it is 
dropped. 



Size R estrictio ns. The rules pertaining to 
decimal pcsiticns in division are defined 
above. In addition, total Factor and 
Result-Field sizes are limited tc a maximum 
of 1 5 positions each, including any zeros 
appended by the program when padding (see 
above) . 

Expressed as equaticns related to the 
decimal-places formulas abcve: 



+ a (if A > 0) < 1 



where 



Li = unpadded (original) length of Factor 1 
(dividend) 

I 2 + | A | (if A < C) < 15, 

where 

L 2 = unpadded (original) length of Factor 2 
(divisor) 

Alternatively, considered independently 
of the previous formulas, and before 
padding by the program, factor sizes and 
number of decimal pcsiticns must satisfy 
both cf the following two equations for the 
division operation to be executed: 

L 2 + Di - D 2 - Dr < 15, and 

Ii - Di + D 2 + Dr + H < 15, 

where 

Li = length of Factor 1 (dividend): < 15 
Di = number of decimal positions in Factor 

1: < 9 
L 2 = length of Factor 2 (divisor) : < 15 
D 2 = numter of decimal positions in Factor 

2: < 9 
Dr = number of decimal places specified for 

result (quotient) : < 9 
H = 0, if half-adjustment not specified 
= 1, if half-adjustment specified (H in 

col. 53) 

Size cf Quotient (Result) . Assuming that 

the divisor field always contains a siani- 
ficant digit in its highest-order position, 
the quotient contains a number of positions 
equal to the size of the dividend plus 1, 
less the size of the divisor, and less 1 if 

'TaTIf^alTJulsTment Xrouna"rngy""i"s' "s'pe'cifl'ed".' 

Dividend and divisor sizes refer to padded 
factors (see above) . 

If the divisor field always contains a 
significant digit in the highest-order 
position, the formula is: 

Lr = 1 + F1p - F2p - H, 

where 

Lr = minimum length of Result Field 

required to acccmmodate quotient 
(after half-adjustment, if any) 

F1p= lenqth of Factor-1 (dividend) field, 
after padding (if any) 

F2p= lenqth of Factor-2 (divisor) field, 
after padding (if any) 

H = 0, if half-adjustment not specified 
= 1 , if half-adjustment specified (F in 
ccl. 53) 

If the position of the hiahest-crder 
significant digit in the divisor field may 
vary, the result-field must be larcrer to 
accommodate all totals. The result-field 
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length must be increased by a number equal 
to the maximum number cf leading zercs in 
the divisor field. 



Size of Remainder. The renainder (which 
can be salvaged by an AVE cperaticn--see 
below) contains a number cf positions equal 
to the length cf the diviscr, after padding 
(if any) . Its number of decimal places is 
equal to that in the dividend, after pad- 
ding (if any) . 



Effects cf Each Operation Cede 



.ADD (Add) 



The contents of the field in Factor 2 cr 
the literal entered in Factor 2 is added, 
algebraically, to the literal or the con- 
tents cf the field in Factor 1. The result 
cf this addition is placed into the result 
field specified in cols. 13-48, and 
replaces any previcus data in the result 
field. Any excess positions in the result 
field are set to zero. 

Factor 1 (say. A), Factcr 2 (say, E), 
and the Result Field (say, C) may all be 
different fields: A + B = C. 

Factor 1 cr Factor 2 may be the same 
field (i.e., have the same field name) as 
the Result Field. The value of the con- 
tents cf the result field is then 
increased, algebraically, by the value 
represented by Factor 1 cr Factcr 2, res- 
pectively: operation A+C=C crC+E= 
C . 

Factor 1 and Factor 2 may be the same 
(i.e., have the same field name) , but may 
be different from Result Eield. Twice the 
value cf either Factcr then becomes the 
result: operation A + A = C = 2A. 

Factor 1, Factor 2, and the Result Eield 
may all be the same field (i.e., have the 
same field name) . The absolute value cf 
the contents of the result field is then 
doubled: operation C + C = C« = 2C. 

Z-ADE (Zero and Add) 

The result field is set tc zero before the 
contents cf the field or the literal in 
Factor 2 is added algebraically into the 
cleared result field. Factor 1 must be 
left blank. 

If a literal of is entered in Factor 
2, Z-ADD, in effect, causes the result 
field tc be cleared to plus zero. (How- 
ever, see SUE, below, for a preferred 
method.) 



SUP (Subtract) 

The contents of the field in Factor 2 or 
the literal in Factor 2 is subtracted alge- 
braically from the literal cr the contents 
of the field in Factor 1. The result cf 
this subtraction is placed into the speci- 
fied result field, and replaces any pre- 
vious data in the result field. Any excess 
positions in the result field are set to 
zero. 

Factor 1, Factor 2, and the Result Eield 
may all be different fields: A - B = C. 

Factor 1 may be the same field (i.e., 
have the same field name) as the Result 
Field. The value in the result field is 
then reduced, algebraically, by the value 
in Factcr 2: operation C - E = C. 

Factor 2 may be the same field (i.e., 
have the same field name) as the Result 
Field. The new result-field value is then 
the negative of the original result-field 
value, increased algebraically by the value 
in Factcr 1: operation A - C = C . 

Factor 1 and Eactor 2 may be the same 
field (i.e., have the same field name), but 
may be different from Result Field . The 
result is then zero: operation A - A = C = 
+0. (However, see immediately below for a 
method of setting the result field to zero 
that is usually preferable.) 

Factor 1, Factor 2, and the Result Eield 
may all be the same field (i.e., have the 
same field name) . This sets the result 
field tc +0 (i.e., all zeros, signed plus): 
operation C - C = C = +0. 

Note : The operation C - C = C = +0 is 
recommended for clearing a numeric field; 
this methfod never consumes more core 
storage space, and cften uses less, than 
other methods (Z-ADE literal 0, or HOVE of 
0s or blanks, for instance). 

Z-SUE (Zerc and Subtract) 

The result field is set tc zero before the 
contents of the field cr the literal in 
Eactor 2 is subtracted, algebraically, into 
the cleared result field. This places the 
negative of the Factor-2 value in the 
result field. Factor 1 must be left blank. 

If a literal of is entered in Factor 
2, Z-SUE, in effect, causes the result 
field to be cleared to plus zero. (How- 
ever, see SUB, above, for a preferred 
method. ) 

Note: Although the result field is cleared 
before Factcr 2 is subtracted into it, the 
former contents of the result field are 
available as Factor 2 (i.e., -C = C is 
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feasible) . A Z-SUE operation with the same 
field name in Factor 2 as in the Result 
Field is the simplest way to reverse the 
sign of data. 

HUIT (Multiply) 

The contents of the field cr the literal in 
Factor 1 (multiplicand) is multiplied, 
algebraically, by the literal cr the 
contents of the field in Factor 2 
(multiplier) . The product of this 
multiplication is placed in the result 
field specified in cols. 43-48, and 
replaces any previous data in the result 
field. Any excess positions in the result 
field are set to zero. 



In general, execution time of a 
multiplication operation is irinimized if 
the multiplicand (Factor 1) has the smaller 
average sum-of-digits values (crossfoot sum 
of the digits) . Unless knowledge cf 
particular values involved in the factors 
indicates otherwise, the smaller field may 
be assumed tc contain the smaller average 
sum-of-digits value, and should therefore 
be assigned as the multiplicand (Factor 1) . 

Examples cf sum-of-digits values: 

Factor = 12348--sum of digits = 18 
Factor = C.92 --sum of digits = 11 



Factor 1, Factor 2, and the Result Field 
may all te different fields: A x E = C. 

Factor 1 or Factor 2 may be the same 
field (i.e., have the same field name) as 
the Result Field. The new result is then 

±he..-.px nd.irc.t- cf _.±±.e . f cxmer r es-ult- f i el cLc an - 

tents and a Factor: operation A x C or C x 
P. = C ' . 

Factor 1 and Factor 2 may be the saie 
field (i.e., have the same field name), but 
different from Result Field. The result is 
then the sguare cf either Factor: opera- 
tion A x A = C = + A 2 . 

Factor 1, Factor 2, and the Result Field 
may all te the same field (i.e., have the 
same field name) . The new result is then 
the sguare of the former result-field 
value: operation C x C = C = + C 2 . 

Mote: When the result field is used as a 
Factor, the user must make sure that the 
Result Field is large enough tc accommodate 
the new product. This implies that, if 
there are significant digits to the left of 
the defined decimal position in either fac- 
tor, an eguivalent number cf high-crder 
positions cf zero may have to exist in the 
original result-field value. At any rate, 
a diagnostic warring message ("Result field 
may not he large enough") fcill te printed 
at time cf object-program generation. 



For further details on multiplication, 
see sections above: General Points 
Applicable to Arithmetic Operat io ns and 
I?§l£Lf i°ilshi£_Between_Size_of_Factors_and 
Resu lts; and also Figures 31, 32, and 37. 



DIV (Divide) 

The contents of the field or the literal in 
Factor 1 (dividend) is divided, algebraic- 
ally, by the literal or the contents cf the 
field in Factor 2 (divisor) . The result of 
this division operation (the guotient) is 
placed in the result field specified in 
cols. 43-48, and replaces any previous data 
in the result field. Any excess positions 
in the result field are set to zero. The 
remainder is accessible cnly if a Move 
Remainder (MVP.) operation is next; other- 
wise it is lost. 

A dividend (Factor 1) of zero yields a 
guotient of zero. A divisor (Factor 2) of 
all-zero is not permitted; it will cause an 
error step. 

Half-adjustment (rounding) of the guo- 
tient is net permitted if the Move Remain- 
der operation (MVR) follows (see below) . 

Factor 1, Factor 2, and the Result Field 
may all be different fields: operation A ■*• 
5 = C. 

Factor 1 may be the sane field (i.e., 
have the same field name) as the Result 
Field: operation C * B = C ' . 

Factor 2 may be the saire field (i.e., 

have.. the- .same-.-f-ieXd name) .a-s ... the- ~Re-S4j.lt 

Field: operation A -J- C = C. 

Factor 1 and Factor 2 may be the same 
field (i.e., have the same field name) and 
be either different from the Result Field 
or the same field. This yields a guotient 
of 1 (tc the left of any decimal point spec- 
ified for the Result Field, with zeros in 
all decimal positions) : operation A ••- A = 
C = 1. , cr C * C = C = 1. — an inefficient 
method of setting a field to 1. 

For further details on division, see 
sections above: General Points Applic able 
to Arithmetic Operations and Relations hi p 
Between Size of Factors and Result s; and 
also Figures 32 and 37. 

MVR (Move Remainder) 

The remainder from a Divide (DIV) operation 
is transferred — by a zero-and-add operation 
supplied by the proqram— to any result 
field specified in eels. 43-48 of this 
specification line. It replaces any pre- 
vious data in that result field. Any 
excess positions in the result field will 
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contain zeros. Factor 1 (cols. 18-27) and 
Factor 2 (eels. 33-42) must be left blank. 

MVR is an arithmetic operation. 
Therefore: 



operation; this can be longer than the 
field length specified for Factor 2, if the 
divisor was padded by the prcgram--see 
Relationship Betweer S i z e_ c f _ F act ors and 
Results: Division, above. 



The result is signed. The sign of 
the remainder is the same as the sign 
of the dividend. If the dividend was 
unsigned, the result of an KVR opera- 
tion will be signed pits — since results 
of arithmetic operations are always 
signed. 

Decimal alignment is ^erfcrmed t ,? 
the program; 



The value of the remainder (R) can be 
determined by the following formula 



Half-Adjustment (rounding) 
specified (H in ccl. 53) ; 



say 



Resulting Indicators (eels. 54-59) 
may te assigned; 

If the Result Field is not large 
enough tc acccmmcdate all the high- 
order positions in the remainder (after 
appropriate decimal alignment) , a 
corresponding number of the most- 
significant (leftmost) positions is 
lost. No warning message or error stop 
occurs, either at generation or object- 
program execution time, if the Result 
Field is net large enough. 

The length of the remainder of a divi- 
sion is equal to the length of the divisor. 
"Length cf the divisor" refers to the actu- 
al diviscr used by the program in the EIV 



R = Dividend - Diviscr x Quotient 
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Most likely applications of MVR are: 

1. To test whether the remainder is zero 

(illustrated in Figure 38) , and 

2. To perform division expansion (double- 
precision division) . 

(See also Figure F11 for another 
application. ) 

Figure 38 shows seme specifications for 
arithmetic operations. Specifications for 
such operations have also already been 
illustrated in Figures 5, 9, 10, 12, and 
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33; and Figure 36 identifies the pertinent 
specification fields for each operation. 

Explanation cf Entries in Figure 38 

The fields named ALPHA, GAPf*A, DELTA, and 
ZETA are assumed to have teen defined in 
the input specifications or elsewhere in 
the calculation specifications. Note that 
all detail-time specif icaticns precede all 
total-time specifications — an absolute 
requirement. Within these two cycle-time 
segments, the specifications are executed 
in the order in which they appear. 

Spec ifications l ine 01 . The field named 
EETA is set to zero, and tre contents cf 
ALPHA are then added algebraically to the 
value zero in EETA. The field length and 
decimal places for EETA are defined in line 
02; they could egually well be defined in 
line 1 instead, or in both lines--provided 
they are defined egually in both lines. 
The decimal point cf ALPHA is aligned to 
accord with the twc decimal places in EETA. 
Any excess positions in EETA certain zero; 
and excess high-order positions in ALPHA, 
beyond the capacity of the BETA field, are 
lost. 

Factor 1 is not used with Z-AED. The 
specifications in this line are executed at 
detail time (cols. 7-8 blank), provided 
indicator 05 is en. 

Line 02. The value -12.32 is added alge- 
braically to (i.e., 12.32 is subtracted 
from) the contents of EE1A. The numter of 
decimal places is egual in bcth factors. 
Thus: 



EETA XXX. XX 

ADD -_I2^32 

Result: BETA ±XXX. XX 



Indicator 1C turns (or remains) en if the 
result is negative; otherwise it remains 
(or turns) off. The specifications in this 
line are executed at detail tirre, provided 
indicator 05 is on. 

Line, 03 . The contents of the field named 
DELTA are added algebraically tc the con- 
tents of GAMMA. The result is stored at 
the lecatien assigned by the program tc 
EPSILN, defined as fcur positions long, the 
fourth position beinq a decimal place. The 
specifications in this line are executed at 
detail tine, provided indicator C5 is en. 

Line_04. If indicator 05 is or, and the 
value in EETA was last negative (indicator 
10 on) , then — at detail tine — ALPHA is 
cleared tc plus zerc. For instance: 



ALPHA = 1234 
SUE: .12 34 

= +0CC0 



-123a 

sue: rlZM 

= +00CC 



This is as efficient (in terms of core 
storaae consumption) as, cr more efficient 
than, any other technique, for settinq a 
numeric field to zero. 

Line 05. The field named ETA is set to 
zero, and the contents of ZETA are then 
algebraically subtracted from the value 
zero in ETA. ETA is defined as containing 
no decimal places, and being six positions 
long. 

If the value in ZETA is positive, indi- 
cator 25 will be on after the operation 
(subtraction of a positive value from zero 
yields a negative result) . 

Factor 1 is not used with Z-SUE. The 
specifications in this line are executed at 
detail time, provided indicator 42 is on. 

Line 06. The value in the field named 
EPSILN is sguared. (The result will always 
be positive or zero: the product of two 
positive cr twc negative values is posi- 
tive.) Since EPSILN consists of 4 posi- 
tions including one decimal place (see line 
03) , the product will contain 2 decimal 
places within a maximum of 8 positions 
total length. Ey specifyinq only 1 decimal 
position for THETA, a total length of 7 
positions for THETA is certain to accommo- 
date the maximum result. The second decimal 
position is retained for half-adjustment (H 
in ccl. 53), and then dropped before the 
final result is placed into the location of 
THETA. 

Indicator 12 will be on after the opera- 
tion if the final (half-adjusted) result, 
§f.^.r....t]lf._...§.. , ?- c I9.5..^.-. ^.ecim_al___place has been 
dropped, is zero (actually, plus zerc) . 

The specifications in this line are 
executed at total time (L-indicator in 
cols. 7-8), and provided indicator L 1 is 
on . 

Li ne 07. The literal in Factor 1 is 
divided algebraically by the value in 
THETA. The operation takes place at total 
time, if L1 is on, but is suppressed if the 
value in THETA is zero (indicator 12 on if 
THETA is zero) : division is net possible 
with a divisor of zero. 

THETA contains 1 decimal position (see 
line 06), and 3 are defined for the Result 
Field (IOTA) . Since the literal in Factor 
1 has only 3 decimal places, the proqram 
pads the dividend by appending a as 
fourth decimal place; then, 4 decimal 
places in the dividend minus 1 in the divi- 
sor will provide the 3 decimal places 
called for in the quotient. 

The dividend, after padding, is 1 C posi- 
tions lenc. Providing 1C positions in the 
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result field (IOTA) allows fcr any number 
cf leading zercs in the divisor. If it is 
known that there is always a significant 
digit in the high-order position of THETA, 
IOTA need be no larger than 4 positions: 
10 dividend positions (after padding) - 7 
divisor positions + 1 = 4--see Relationship 

Between Size of Factors and Results: Eiyi- 

sion , above. 

Half-adjustment (rounding)--which, if 
specified, would have padded the dividend 
by an additional zero — is net permitted 
because an MVR operation fellows. 

Line 08. The field named KAPPA is set to 
zero. Then, the remainder from the divi- 
sion operation in line 07 is placed in 
KAPPA. THETA, the divisor, is 7 positions 
long, including 1 decimal place. There- 
fore, the remainder is also 7 positions 
long. The dividend, after padding, 
includes 4 decimal places; therefore, the 
remainder has 4 decimal places. KAPPA is 
to contain 3 decimal positions (3 in ccl. 
52) ; therefore, 6 positions will accommo- 
date the entire remainder after the last 
decimal place has been dropped. Half- 
adjustment (specified by H in col. 53) 
occurs before the last decimal position is 
dropped. The half-adjusted (rounded) 
remainder is henceforth available at the 
location named KAPPA; without the MVR 
operation it would be lest. 

Indicator C8 is on after the operation 
if the remainder, after half -ad justment and 
dropping cf the fourth decimal position, 
was zero. 

The Factor fields are net used with MVR. 

Note that the MVR specification must be 
in the line immediately following the per- 
tinent DIV operation, and that the two 
specification lines must have identical 
entries for conditioning indicators 
(cols. 7-17) . 



Move O peration s 

These operations move part or all of the 
literal in Factor 2 t or cf the contents of 
the field named in Factor 2, to the field 
named in Result Field. Ihe contents cf the 
field or the literal in Factor 2 remains 
unchanged. The data moved to the result 
field replaces the fcrmer contents cf the 
corresponding positions cf the result 
field. The Result Field must te defined in 
the same, cr another, calculation specifi- 
cation line, or it must have been defined 
in the input specifications. Mcve opera- 
tions differ from arithmetic operations in 
several significant respects. Points gen- 
erally applicable tc mcve operations 
follow: 



1. No automatic decimal alignment is per- 
formed by the program. Nevertheless, a 
numeric result field must be defined as 
numeric somewhere by an entry (0-9) in 
Eecimal Positions (col. 52), which also 
locates the decimal point for possible 
compare or arithmetic operations with 
that field. 

2. When data is moved only to a portion of 
the result field, the contents of the 
remaining portion are not changed. 

3. At the beginning of procram execution, 
data fields are set tc: 

Elank (EBCDIC 40) in all positions — if 
defined as alphameric; 

Zero (EECDIC 0) in all digit positions, 
with lew-crder positions unsigned 
(lowest-order half-byte EBCDIC F) — if 
defined as numeric. 

Therefore, if no data has been 
placed in a result field by a prior 
operation, any portion of the result 
field that exceeds the source field in 
a move operation remains blank or zero 
(alphameric or numeric field, 
respectively) . 

Note: See Appendix D fcr code 
structure . 

4. A numeric result field is only sianed 
(ether than hexadecimal F) if it was 

signed before the move, or if a sian is 
moved into its lew-order position. 
Also, a sian in the lew-crder position 
cf a numeric field can be removed 
(i.e., hexadecimal F can be placed in 
the sign position) . 

5. A result field can be minus zero: if 
only zeros and a minus sign are moved 

(cr no sign position is moved but the 
result field previously contained a 
minus siqn) , and no significant diqits 
remain in the result field, it will 
contain zeros and be signed minus. If 
the sign position is then tested by 
TESTZ (assuming the field is then 
alphameric) , a Resulting Indicator 
assigned to Minus (cols. 56-57) will 
turn on. 

6. Data may — with limitations, defined 
below--be moved from an alphameric 
field tc a numeric field, and vice 
versa. 

7. The diqit portions of numeric fields 
are net restricted tc EECDTC-table rows 
C-9 (see Appendix D, Fiqure D1); i.e., 
nc test is made that they contain only 
valid digits that can be used in arith- 
metic or editing operations. 
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8. Half-adjustment is net possible; there- 
fore, ccl. 53 must be left blank. 

9. Resulting Indicators cannot be 
assioned; therefore, eels. 5 M — 5 9 m i: s t 
he left blank. 



The diqit portion of each position to 
be moved is transferred from the source 
field (Factor 2) to the equivalent 
position of the result field; a blank 
is transferred as zero. 



10. The execution of move operations may be 
conditioned by indicator entries in 
Control Level (cols. 7-8) and Indica- 
tors (cols. 9- 17) . 

11. Cnly cne source-data field (Factor 2) 
is involved in any move operation. 
Factor 1 must be left blank. 

12. Maximum field sizes-- 

Numeric fields: 15 positions 
Alphameric fields: 256 positions. 

When an alphameric field is moved to 
a numeric field, or vice versa, only 15 
positions can be transferred. 
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Effects cf Each Operation Cede 

MOVE (Move Eight-Aligned) 

The contents of "the field cr the literal in 
Factor 2 is moved into the specified result 
field, right-aligned. 

If the result field is longer than Fac- 
tor 2, the excess left-hand positiens cf 
the result field remain unchanged. If the 
result field is shorter than Factor 2, the 
contents of cnly the eguivalent number of 
right-hand positions of Factor 2 are placed 
in the result field. 

A source field or literal defined as 
alphameric can be moved to a result field 
defined as alphameric or numeric; also, a 
source field or literal defined as numeric 
can be moved to a result field defined as 
alphameric cr numeric. 

When an alphameric field cr literal is 
moved to a field defined as numeric (i.e., 
with Decimal-Positions entry in ccl. 52 
wherever the field is defined) : 



The zene portion of the low-order posi- 
tion cf the source field (Factor 2) is 
also transferred to the low-order posi- 
tion of the result field. Zones in 
other positions cf the source field are 
net transferred. 



Note 
1 



2. 



The transfer of the lew-order-position 
zone from an alphameric field to a nu- 
meric result field adheres to the fol- 
lowing rules, so that valid signs for 
arithmetic operations result. 
(Refer to EBCDIC table. Appendix D, 
Figure E1) : 



a. If the source position (in Factor 

2) contains any of the punch combi- 
nations in EECEIC-table column E or 
F, the E- or F-zone, respectively, 
is transferred to the result field, 
and the result field is considered 
positive (cr zero, if entire 
result-field is zero) . 

b. If the source position contains any 
cf the punch combinations in 
EBCDIC-table column D, or an EECDIC 
60, D-zone (minus) is transferred 
to the result field, and the result 
field is treated as neqative (or 
zero, if entire result field is 
zero). 

c. All other punch combinations in the 
source position are transferred to 
the result field with C-zone 

(plus), and the field is treated as 
positive (or zero, if entire result 
field is zero) . 

If a numeric literal is signed, the 
sian is recorded in the leftmost posi- 
tion (col. 33) of Factor 2. Neverthe- 
less, the program signs the low-order-- 
not the high-order — position of the 
literal. Therefore, if the literal is 
used in a move operation, the sign is 
in the proper position. 



Fiqure 39 portrays the alignment and 
zone transfer in MOVE operations. Figure 
41 includes specifications for some MOVE 
operations in Figure 39 (as well as for the 
MOVEL operations in Figure 40) . 
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Factor 2 
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alphameric 
alphameric result field 


,7,8.4,2,5 , 


|7|8|4;2,N, 




gth 



Reference No. 
in Figure 41 



© 



© 
© 



© 
© 



Figure 



WOVE Operations 



MOVE! (Move Left-Aligned) 

The contents of the field cr the literal in 
Eactor 2 is moved into the specified result 
field, left-aligned. 

If the result field is longer than Eac- 
tor 2, the excess right-hand positions of 
the result field — including a sign in a 
numeric result field — remain unchanged. If 
the result field is shcrter than Eactcr 2, 
the contents of cnly the equivalent number 
of left-hand positions of Factor 2 are 
placed in the result field (but see 
explanation of zone moves, below) . 

A source field cr literal defined as 
alphameric may be mcved to a result field 
defined as alphameric or numeric; also, a 
source field or literal defined as numeric 
may be mcved to a result field defined as 
alphameric cr numeric. When moving Factor- 
2 data to a numeric Eesult Field, cnly the 
low-crder position of the Eesult Field can 
have a zone transferred to it. If no zone 



position is transferred, the numeric Eesult 
Field retains its former zone; positions 
other than the lcw-crder positions can con- 
tain digits only. Elank in an alphameric 
field is transferred tc a numeric field as 
zero. 



Figure 40 illustrates MCVEL operations, 
including the behavior of zones (or signs) . 
Figure 4 1 contains the specifications for 
the MOVE and MOVEL operations shown in 
Figure 39 and 4C. 

Eules for HOVEL zone transfers 

1. Factor 2 same length as Result Field 

a. Factor 2 and Eesult Field numeric: 
Sign is moved with lcw-crder dioit 

b. Factor 2 numeric, Eesult Field 
alphameric: Siqn is moved with 
low-order digit; other result-field 
positions will ccntain only digits. 
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Figure UC. HOVEL Operations 



alphameric 



alphameric 



alphameric 



alphameric 



alphameric 



alphameric 



Reference No. 
in Figure 41 



i 

© 
© 
© 
© 



© 



© 



© 



© 



© 



134 System/360 tfodei 20 CFS Fepcrt Prccram Generator 



c. Factor 2 alphameric. Result Field 
numeric: Zcne and digit pcrticns 
cf lew-order character are moved; 
zones in other positions are not 
moved. 

d. Factor 2 and Eesult Field alphamer- 
ic: All characters are moved to 
the equivalent Eesult Field 
positions. 

Note : When Factor 2 and the Eesult 
Field are the same length, the MCVEL 
and MOVE operations perform identical 
functions. 

2. Factcr 2 longer than Eesult Field 

a. Factor 2 and Result Field numeric: 
The sign from the lew-order posi- 
tion of Factor 2 is moved ever the 
lew-crder digit of the Eesult 
Field. 

fc. Factor 2 numeric, Eesult Field 
alphameric: No sign is trans- 
ferred; result field will contain 
enly digits. 

c. Factor 2 alphameric, Eesult Field 
numeric: Zone frcrc the lew-crder 
character cf Factcr 2 is moved over 
the low-order digit cf the result 
field; other result-field positions 
will contain only digits. 

d. Factcr 2 and Eesult Field alphamer- 
ic: The appropriate number of 
leftmost characters in Factor 2 is 
mcved to the eguivalent positions 
of the result field. 

3. Factcr 2 shorter than Eesult Field 

a. Eesult Field numeric: The digit 
portion of the Factor-2 data 
replaces the contents cf the egui- 
valent number of leftmost positions 
in the result field. These result- 
field positions will contain only 
unsigned digits. The sign in the 
lew-crder position of the result 
field is not changed. 

b. Eesult Field alphameric: The 
entire characters in Factor 2 
replace the contents of the equiva- 
lent number of leftmost positions 
in the result field. Nc change is 
made in the zone cf the low-order 
position of the result field. 



Note: 

1. Whenever the operation dees not involve 
transfer of a sign (cr zcne) portion to 
the lew-order position of the result 
field, the sign (or zcne) previously in 



tne j_ow-oraer position oi tne result 
field is left unchanged. 

2. Whenever the operation involves trans- 
fer cf a zcne portion from an alphameric 
Factor 2 to the lew-order position of a 
numeric result field, the particular 
zone placed over the lew-order digit of 
the numeric result field fellows the 
rules itemized in the Note under MOVE, 
above. 
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MOVEI operations are useful in 
situations* For example, they 
plitting a field so that cha- 
h as a hyphen) can be printed 
portions while retaining high- 
in the printout (use of an edit 
output-format specifications 
ession cf at least one leading 

application is described in 
Tips . Also, a literal consist- 
or blanks can be mcved into a 
to clear all or part of it. 
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NOTE: For ease of illustration the Result Field is defined 
in each Move-specification line. 



Figure 41. MOVE and MCVEL Specifications 
for Moves Illustrated in 
Figures 39 and 40 

Points to Note in Figures 40 and 41. 

1. Factor 2 may be a field name or a lit- 
eral (see Fiqure 41: items 5, 11, 12, 
13, 14, 15, 20, 22). 

2. Although — if a sign is specified for a 
numeric literal — it must be recorded 
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3. 



leftmost, the program treats the sign 
as being located in the low-crder posi- 
tion: compare items 11, 12, 15, and 20 
in Figures 40 and 41. 

Item 15 illustrates that a minus zero 
result can occur after a move 
operation. 



4. The decimal- point lccaticn in the 
Result Field is independent of any dec- 
imal point in the source field (Factor 
2) : see all numeric items--no decimal 
alignment takes place letween the 
source and result fields in a move 
operation. Nevertheless, a Eecimal- 
Pcsiticns entry (ccl. 52) is reguired 
wherever a numeric result field is 
defined, and there must be no Decimal- 
Positions entry for alphameric fields. 

5. The zone (or absence of zone) in the 
low-crder position of the result field 
is net changed when the move operation 
does not involve transfer of a zone 
portion to the low-order position of 
the result field: see items 1S-22 in 
Figure 40. 

6. Items 19 and 21 also indicate that the 
lew-crder position of a numeric result 
field can originally contain a sign, 
but can also be unsicrned (hexadecimal 
F) . 

7. Factor 1 must be left blank in all Move 
operations. 

Hove Zone 

This operation has four variations, to pro- 
vide — f or— -»© v-ing - a - ze-ee— f- -£•€-#-- t-h-e— hig -h— e rtter - 

(leftmost) or low-crder (rightmost) posi- 
tion of cne field tc the high- or lev-cider 
position cf another. The zone (if any) in 
the specified position of the field or lit- 
eral in Factor 2 is moved tc the specified 
position cf the Result Field, replacing any 
zone previously in that position. 



A zone can be moved from an alphameric 
field or literal tc an alphameric or numer- 
ic field, cr from a numeric field or liter- 
al to a numeric or alphameric field. How- 
ever, since numeric fields can have a zone 
only in the lew-order position, a zone can- 
not be moved from cr tc the hiqh-crder 
position cf a field defined as numeric. 



J5LL1C (Move low-crder zene tc Lew-order 
ZOne position) . The zone in the lew-crder 
position cf the field cr literal in Factor 
2 is moved to the lew-crder position of the 
Result Field. Factor 2 and/or the Result 
Field may he numeric or alphameric. 



MHH2C (Move Hiah-crder zone to Hiah-crder 
ZOne position) . The zone in the hiqh-crder 
position of the alphameric field cr literal 
in Factor 2 is moved to the hiqh-order 
position of the alphameric Result Field. 

MLHZC (Move Low-crder zone to Hiqh-crder 
ZOne position) . The zone in the lew-crder 
(riqhtmost) position of the numeric or 
alphameric field or literal in Factor 2 is 
moved to the riqht-crder (leftmost) posi- 
tion cf the alphameric Result Field. 

MI.2C (Move High-order zone to Lew-crder 
ZOne position) . The zone in the hich-crder 
position of the alphameric field cr literal 
in Factor 2 is moved tc the low-crder posi- 
tion cf the alphameric or numeric Result 
Field. 

A zone is moved tc an alphameric Result 
Field exactly as it appears in the source 
field (Factor 2) . When transferrinq to 

numeric- f ieithsr -cert ai n zon^s— ttra1r~ma-y ~ 

appear in alphameric fields are first 
converted—see the Note under MOVE, above. 

Fiqure 42 illustrates Mcve-Zcne opera- 
tions. Fiqure 43 includes some specifica- 
tions for the operations illustrated in 
Figure 42. 
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5802 
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Figure 42. Move-Zone Operations 



The last line in Figure 12 shews hew 
Move-Zone operations can conveniently re 
employed to remove a C-zcne (+) from a 
positive numeric field to prevent punching 
of a 12-cverpunch, or printing cf a letter 
or symbol, when the field is used in 
output — without the necessity of editing 
and, thus, offering the ability to retain 
leading zeros. The literal cr pesitier in 
the field from which the zone is to be 
moved, to eliminate a C-zcne (+) or E-zone 
(-) in the numeric result field, must con- 
tain an F-zone (see EBCDIC, Figure D1); 
i.e. , any of the digits C-9 or any of the 
remaining six characters in FBCEIC-tatle 
column labelled F. 



Com pare and_ Zone^Testing, te rati ens 

These operations test data conditions 
without effecting any changes in data 
fields. Results of the tests are signified 
by the status of Resulting Indicators 
assigned in cols. 54-59. Execution of the 
specifications for these operations may be 
conditioned by the status cf indicators 
designated in Control Level (eels. 7-8) and 
Indicators (cols. 9-17). 

Effects cf Each Operation Cede 

COMP (Compare) 

The contents of the field cr the literal in 
Factor 1 is compared against the contents 
of the field or the literal in Factor 2. 
Any Resulting Indicators specified in eels. 
54-59 reflect the result cf the comparison. 

(Factor 1 and Factor 2 normally contain 
different field names or literals; but it 
is permitted to cempare data te itself 

(Factor 1 and Factor 2 identical) - which 
always yields a comparison result of 
"Equal.") The Result Field (and related 



fields — i.e., cols. 43-53) must be left 
blank. 

A Resulting Indicator must be assianed 
to at least one of the three possible 
conditions: 



High (eels. 54-55) : 
Low (eels. 56-57) : 
Egual (cols. 58-59) : 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 



After the Cempare operation, the Result- 
ing Indicator (if any) assigned to the con- 
dition found to exist, turns on; any indi- 
cators assigned to the ether two possible 
conditions turn off. However, the same 
indicator may also be assianed to more than 
one cf the three possible conditions (e.o.. 
High and Low, or High and Egual, or Low and 
Egual) ; it then turns on if cne of the cen- 
ditiens to which it was assigned applies. 
Different indicators may be assiqned to 
two, or all three, of the possible condi- 
tions. The status cf the Resulting Indica- 
tors can be used to conditicn the execution 
of calculation specifications (by entries 
in cols. 7-17) and/cr output-format speci- 
fications (by entries in cols. 23-31). 

If executicn cf the calculaticn-speci- 
ficaticn line that contains the Compare 
operation is itself conditioned by indica- 
tors (in cols. 7-17) , the user must remem- 
ber that the comparison will not be executed 
during each program cycle unless the status 
of the conditioning indicators is always 
appropriate. Therefore, Resultinq Indica- 
tors could reflect an earlier, and possibly 
inapplicable, comparison. 

Factor 1 and Factor 2 must both be 
alphameric cr both numeric. Certain 
aspects o* the Compare operation differ for 
alphameric and numeric fields cr literals, 
as fellows. 
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Alphameric Fields cr Literals: 



is given in Programming Tips, Appendix 
E. 



1. Fields (cr literals) cf unequal length 
are left-aligned. Tre shorter field is 
assumed to contain an equivalent number 
of blank right-hand positions to ecuate 
the length cf both fields. 

2. Blanks within a field (or literal) are 
treated as blanks, net as zeros. 

3. Maximum length of the (lenger) Factor 
is 4C positions. 

4. The comparison is based upon the 
internal Model 20 collating sequence, 
which corresponds to the EBCDIC-table 
seguence (see Appendix D, Figure D 1) . 
Note that, in EBCDIC, the mcst-ccmmonly 
used characters follow this seguence: 
i, &r -/ // A-Zf 0-9. Thus, a digit 
signed positive (if the field is 
defined as alphameric) is lewer in 
seguence than cne signed negative, or 
than an unsigned digit. 

The uspr has the option of substi- 
tuting any seguence cf his choice fcr 
the standard FECDIC sequence, by means 
cf a translation table (see Altered 
Collating Sequence, Appendix D) . The 
altered collating seguence will then 
apply bcth tc alphameric Compare opera- 
tions and to Matching-Fields 
operations. 

Numeric fields cr literals: 

Numeric Compare is tantamount tc an arith- 
metic operation. Therefore: 

1. Fields or literals cf unequal length 
are aligned at the (defined cr implied) 
deciiral point. Where cne field or lit- 
eral is then shorter than the ether (at 
the high-order cr lcw-crder end) , it is 
assumed to contain an eguivalent number 
of zeros. 

2. The maximum length of a Factor is 15 
positions. (This refers tc the literal 
or field specified in the Factor; any 
left cr right zercs assumed by the pro- 
gram for decimal alignment — see 1, 
above — are net counted when considering 
the limitation of 15 positions. ) 

3. The comparison is algebraic; i.e., a 
positive value is treated as higher 
than the same value signed negative. 
The seguence, fr_cm lew to high, is: 9 
to 1, 0, 1 (cr 1) to 9 (cr 9). = = 
0. A value with an unsigned (hexade- 
cimal F) lew-order digit is treated as 
positive (unless all digits are zercs) . 
A technigue fcr perfcrming absolute 
numeric Compare (i.e., ignoring sians) 



If the low-crder pesitien of a field 
dees not- contain a zone acceptable as a 
sign (hexadecimal zone C, D or F; or 
hexadecimal byte 05-06) , an error stop 
occurs. 



4. All positions of both Factors roust con- 
tain valid digits: 

Considering an input field before it 
is packed by the program, the character 
in each column must be represented in 
rows 0-9 of the EBCDIC table (Appendix 
D, Fioure D1). For packed data, the 
eguivalent valid EECDIC characters were 
described under Packed (col. 43) , in 
Input Specificat ions . 

Any characters that do not represent 
digits (or, digit plus sign in the low- 
order position) cause an abortive pro- 
gram stop. 

Compare is frequently a more efficient 
method cf seguence-checking than the use of 
Matching Fields for that purpose alone. It 
also allows checking for duplicates, which 
the Matching-Fields specifications cannot 
accomplish. Figure 68 — Part I includes an 
illustration utilizing Compare for this 
purpose. 

Fiqure 43 includes some specifications 
for Compare operations: 



Specif ic ations li ne _07. The contents of 
the field SLS66 (say, 1966 sales) are com- 
pared: with the cdhTents of SL~s65. "If 19 66 

sales exceeded 1965 sales, Resulting Indi- 
cator 2 1 is turned on; if they were less. 
Resulting Indicator 26 turns on; if the two 
years had egual sales, 30 turns on. The 
two inapplicable indicators will be off 
after the compare operation. 

line 08. The alphameric literal OCTOEEE is 
compared against the contents of the field 
named MONTH (which must also be defined as 
alphameric) . If the MCNTH field dees not 
consist exactly of the word OCTOBER, indi- 
cator 15 is turned on; if it does consist 
exactly of CCTCBER, indicator 15 will be 
off after the compare operation. 

Line C9. The contents of the field named 
GESPAY (which must he defined as numeric) 
are decimal-aligned with the numeric 
literal 1250. 00, and then compared 
algebraically against it. If GRSPAY 
contains a value algebraically egual to or 
larger than 1250. 0C, indicator 04 turns on; 
if its value is algebraically less than 
1250.00, indicator 05 turns on. The 
inapplicable indicator of the two (04 or 
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TESTZ (Test Zone) 



The zene pcrticn of the hiqh-crder (left- 
most) position of the alphameric field 
named in Eesult Eield (eels. 43-48) is 
tested. Any Resulting Indicators specified 
in eels. 54-59 reflect the result of the 
test; i.e., the type of zcre present in the 
high-order position (re f er also to EECEIC 
table, Appendix E, Eiqure D1). The Result 
Field must be defined (in this line cr 
elsewhere) as alphameric (ccl. 52 blank) . * 
Eactcr 1, Factor 2, Eeciiral Positions (col. 
52), and Half-adjust (ccl. 53) must te left 
blank. 

A Resulting Indicator mrst be assigned 
to at least one of the three possible 
cond itiors j — 

Plus (cols. 54-55) --Equivalent cf 12- 

punch: 8, cr any cf 
the characters that 
have the same zene as 
the letter A. 

In terms of the EECEIC 
table: code 50, cr 
any cf the 16 charac- 
ters in the column 
labelled C. 

Minus (eels. 56 -57) --Equivalent cf 11- 

punch: -, cr any of 
the characters that 
have the same zene as 
the letter J. 



ill LtJ_lllb Oi Lilt £E^L1>- 

table: code 60, or 
any of the 16 charac- 
ters in the column 
labelled E. 



Elank (cols. 58-59 ) --Other zones, or equi- 
valent of no zone: 
Any of the 222 EECEIC 
characters net consi- 
dered Plus or Minus 
(see immediately 
a hove 1 . 



After the TESTZ operation, 
Indicator (if any) assigned to 
tion found to exist, turns en; 
tors assigned to the other two 
conditions turn off. However, 
indicator may also te assigned 
one cf the three possible cond 
Plus and Blank, or Minus and B 
and Minus) ; it then turns on i 
conditions to which it was ass 

Different indicators may be 
to two, or all three, of the p 
ditiens. The status of the Fe 
cators can be used to conditio 
tion cf calculation specificat 
entries in cols. 7-17) and/cr 
specifications (by entries in 



the Resulting 
the condi- 
any indica- 
possible 
the same 
to more than 
itions (e.g., 
lank, or Plus 
f one of the 
igned applies. 

assicned 
ossible con- 
sulting Indi- 
n the execu- 
ions (by 
output-format 
cols. 23-31). 



Note: An indicator C1-99 assi 
(cols. 58-59) is on at the beg 
program execution. Any iridica 
cf a TESTZ specification is al 
when the field is transferred 
storaqe area by an output spec 
Blank-After (3 in ccl. 39 in t 
format specifications) is spec 
several different indicators a 
to Zero-or-Blank of the same f 
ferent specifications lines, t 
assigned is turned en by Blank 
Where Blank-After turns on the 
assiqned tc Ze ro-or-Blank, thi 
turn off an indicator assigned 
Minus, if it was on. 



qned to Elank 
innina of 
tor in Plank 
so turned en 
to the output 
ification, if 
he output- 
i f xed. (I f 
re assigned 
ield in dif- 
he earliest- 
-After.) 

indicator 
s does not 

to Plus or 



Eiqure 43 includes some examples of spec- 
ifications for the TESTZ operation. 
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•NOTE 1: Field Length and Decimal Positions, if applicable, need be defined here only if 
not defined elsewhere. Factors are assumed to be defined elsewhere. 
**NOTE 2: Conditioning Indicators (cols. 7-17) may be used with all of these operations. 

Figure 43. Specif icaticns fcr tfcve-Zcre, Compare, Test-Zone, and SETCN/SET0F Operations 
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I c a t c f e 7" 'specif Ted"! n '" 
ther set en (SETCN) 
a single calculation 

concurrent perfcr- 
culaticn operation, 
pecified in at least 
ndicatcrs fields 
8-59) . The column 
-59 (Plus/High, 
nk/Ecual) are irrele- 
ns. 



Factor 1, Factor 2, Result Field, Deci- 
mal Positions, and Half-Adjust must te left 
blank. 

Execution of these operations may be 
conditioned by the status cf indicators 
designated in Control Level (eels. 7-8) and 
in Indicators (cols. 9-17). 

Effects cf Each Operation Code 

SETON (Set On) 

The indicators assigned by entry in eels. 
54-55, 56-57, and 58-59 are turned en. 



"The" " indicaTcrs assiqnec" by entry in cols". 

54-55, 56-57, and 58-59 are turned off. 

Points to Note: 

1. Any indicator may be SETCN or SE10F. 

2. If the IF indicator is SJTCN durina 
total-time calculations, processing is 
terminated after total-time output. If 
it is SETON during detail-time calcula- 
tions, it is turned off again by the 
program after detail-time output for 
that card. 

3. If the MP indicator is SETON or SFT0F, 
it assumes — before the next detail- 
calculation time — the status it would 
have without the prior SETCN or SETOF 
instruction. 

4. If the CF or 0V indicator is SETCN or 
SETOF, it assumes--af ter completion cf 
the nearest following detail-time or 
total-time output--the status it would 
have without the prior SFTCN or SETOF 
instruction. 
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If indicator LO 



SETOF it is "turned 
en again by the program after the next 
detail-time output, 

6. If indicator H1 cr H2 is SETCN, and has 
net teen turned eff by a specification 
before the next detail-time output, the 
system halts after detail-time output. 
If the system is restarted (by pressing 
the CPU START key twice) , the program 
sets H1 and H2 off at that point. 

7. SETCfl or SETOF of any L-indicator (LR, 
19-11. LO) does not automatically set 
any ether L-indicator en or off. 

8. Indicators 1P and 11 -19 are always set 
off ty the program after detail- time 
output. 

9. The status cf any indicator assigned as 
card-type Resulting Indicator (eels. 
19-20 in the input specifications) is 
revised — based on card type read — after 
detail-time cutput, regardless of any 
prior SETON or SETOE instruction. 

10. The status of any indicator assigned as 
Field Indicator (cols. 65-70 in the 
input specifications) is revised — based 
on the contents of the input field — 
before detail-time calculations, regard- 
less of any prior SETCN or SETOF 
instruction. 

11. An indicator assigned to Zerc-or-Blank 
in Field Indicators (input specifica- 
tions) , or in Resulting Indicators 

(calculation specifications) of an 
arithmetic or TESTZ operation, turns on 
upon execution of a Elank-After 
instruction (output-f crmat specifica- 
tions) , regardless of any prior SETOF 
operation. 

All of these points were fully discussed 
earlier under Program Logic Flow, Indica- 
tors , and Indicato r H ierarchy. 

Figure 43 includes SETON and SETOF spec- 
ificatiens. SETON is also illustrated in 
Figures 5E and 33. 

Bran chin g 

Within the grouping of detail time and 
total time, the RPG program normally 
executes specifications in the order in 
which they appear. Eranching implies 
deviation from this natural seguence. 

Two types cf branching are pcssitle with 
this RPG: 

1. Branching within RPG: Skipping tc an 
RPG calculation specification ether 
than the next one in the normal 
seguence. 



This involves the EPG operation code 
GOTO for the point cf origin of a 
branching operation, and the pseudo- 
operation code TAG for the point cf 
destination of a branching operation. 

Eranching within EPG, by a GOTC 
instruction, can be useful in several 
situations. For instance: 

To bypass an entire calculation 
section that is inapplicable when 
certain conditions apply (see 
Figure 44) . 

To call in a complete EPG routine 
that applies only under certain 
circumstances (e.g., square root). 

To call in an EPG routine that ap- 
plies tc several, tut net all, card 
types. This method may consume 
less core storage space than 
repeating the specification? in 
several places. 

To bypass detail cr total cutput 
under particular conditions (fee 
Figure 44) . 

To iterate a sequence of specifica- 
tions; i.e., to create a proqram 
loop (see Figure 44A, lines 05-13) . 

To repeat the same cutput several 
times, based on a control number 
which may vary for different input 
cards (see Programm ing Tips, Appen- 
dix E) . 

2. Branching to an external subroutine: 
Transferring control of the program 
from RPG to an external routine in 
machine language, provided by the user 
or supplied by IEM. 



The routine must be in relocatable 
form, and must include the various con- 
trol cards (such as ESD and RLD) norm- 
ally created when a program is written 
in Basic Assembler Language and then 
converted to machine language with the 
Basic Assembler program. The end of 
the routine must contain instructions 
to return control to the RPG program. 
A thorough understanding of the SRL 
publications IBM System /360 Model 20 
Basic As semb ler La nguage (Card and 
T ape) , Form C26-3602 and I BM System/36 
Model 20 Func tional Characteristics , 
Form A26-5847 is a prereguisite. 

This kind of branching involves the 
operation code EXIT for the point of 
origin of a branch, and the pseudo- 
operation code RLABL, The latter iden- 
tifies specification lines which define 
fields that are used both in an exter- 
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nal routine and in the JPG program, and 
indicators that are referenced in an 
external subroutine. 

Branchira to an external routine may 
enable the user to incorporate, in a 
program principally written for EPG, 
operations not easily accomplished with 
EPG itself (e.a., selection cf the last 
card of each, control group--see Pro- 
gramming Tips, Appendix E) . 

Any number of external subroutines 
may be used with an EPG program, within 
the limits of core storage positions 
available. 

3oth the GOTO and the EXIT operations 
may be ccnditicned by the status of indica- 
tors designated in Control Level (cols. 
7-8) and Indicators (eels. S— 17). 

Eranchinc Within EPG 

GOTO (Branch To) 

This operation cede defines the point cf 
crigin for a skip (branch) to an EPG calcu- 
lation specification line ether than the 
next in seguence. No ether operation-- 
besides initiating a branch — is performed 
by the specif icatiens in this line. 
Eranching can be tc an earlier or subse- 
guent calculation specification line. For 
branching frcm detail-tiire calculations to 
total-time calculations, or vice versa, see 
subsection below. 

Factor 2 must contain the name (the 
address) of the point of destination cf 
this branch instruction. The rules fcr 

f ormi.ng thJLs j.aji].£..._axg~-i d p n t i caX.-w-i-t^ ..— t-hos€- 

for field names (i.e., one tc six charac- 
ters in consecutive columns, the first cf 
which must be in ccl. 33 and must be alpha- 
betic, t v e remainder being alphabetic or 
numeric) . The same point-cf-destinaticn 
name may be used with any number of GCTC 
points cf crigin; i.e., several points cf 
crigin rcay all branch to the same EPG rou- 
tine. But, of course, any one pcint-cf- 
destinaticn name can only be associated 
with a single destination point (see TAG, 
below) . The pcint-of-dest inaticn name must 
not be used for any ether purpose; i.e., it 
must not also be a field name in input spec- 
ifications or in other calculation 
operations. 

Factor 1, Fesult Field (and the asso- 
ciated fields fcr Field Length, Decimal 
Positions and Half-Adjust), and Eesulting 
Indicators — i.e., eels. 18-27 and i)3-5S — 
must all be left blank. 

The GCTO operation can be an uncondi- 
tional branch.--ccls. 7-17 are then blank — 
cr it can be a ccnditicnal branch--! . e . , 



there are entries in Control Level and/or 
Indicators, cols. 7-17. 

If Ccntrcl level (cols. 7-8) certains an 
entry (L0-L9, or LE), the branch is 
executed at total time, provided the parti- 
cular I-indicator is on--and subject to the 
status cf indicators that may be designated 
in Indicators (eels. 9-17). If Control 
level (cols. 7-8) is blank, the branch is 
executed at detail time — subject tc the 
status of indicators that may be desianated 
in Indicators (eels. 9-17). 

TAG (Destination of a Eranch Operation) 

This pseudc-operat icn code merely desig- 
nates the specification line as a destina- 
tion point to which a GOTO operation may 
branch. Factor 1 contains the point-of- 
destinaticn name (left-aligned, starting in 
col. 18) that was assigned in Factcr 2 of 
the related GOTO specification line (s) . 

A pcint-of-destination name cannot be 
associated with more than one TAG specifi- 
cation line — otherwise the prooram could 
not know to which of several destination 
points it should branch — nor can it serve 
as a field name anywhere else except as a 
destination name in GOTO specification 
lines. 

Factor 2, Eesult Field (and its asso- 
ciated fields), and Eesulting Indicators — 
i.e., cols. 23-59--must be left blank. The 
Indicators fields (eels. 9-17) must also be 
left blank. 

If the TAG line is preceded by total- 
time specification lines (i.e., lines with 

L-= i-n-d-ie-a-t-er e-nt-r-ie-s in- €-etrtrei — tre-vel™- crris . 

7-8) , the IAG specification line must also 
have an L-indicator (10, I1-L9, or LB) in 
Control Level (cols. 7-8) . If the TAG line 
is followed by detail-time specification 
lines (i.e., lines without entries in Con- 
trol Level, cols. 7-8) , the TAG line must 
also be blank in Control Level (cols. 7-8) . 

The presence or absence of an L- 
indicatcr in Ccntrcl Level (cols. 7-8) — as 
stipulated in the preceding paragraph- 
serves twe purposes at ob ject-proaram 
generation time: 

1. The prcaram checks that all specifica- 
tions fcr detail time precede all spec- 
ifications for total time. The TAG 
line must satisfy this check. 

2. Absence of an L-indicator in Control 
Level (cols. 7-8) cf the TAG line sig- 
nifies that the destination of the 
branch operation lies within detail- 
time calculations; presence of an I- 
indicatcr in Ccntrcl Level of the TAG 
line sicnifies that the destination of 
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the branch operation lies within tctal- 
time calculations. The significance of 
this distincticn beccmes apparent when 
branching between detail-time and 
total-time calculations is considered 
(belcw) . 



.N°ie: ^t is the presence cr absence of 
an (any) L-indicator (in Control level 
of the TAG line) at generation time 
that determines whether the branch 
destination lies within detail or total 
time. At object-program execution 
time, it is immaterial whether that 
L-indicatcr is en cr off: the TAG line 
will still serve to identify the branch 
destination. 

When performing a GOTO operation, the 
program skips to the operation that follows 
the TAG line which contains (in Factor 1) 
the same name that the particular GOTO line 
contains (in Factor 2) . That next opera- 
tion may be another specification line in 
the same cycle time-segment (detail cr 
total time, respectively); i.e., either the 
GOTO line and the line following TAG are 
both blank in Control Level (cols. 7-8), or 
both contain L-indicators in Control Level. 
The operation in that line is then 
executed — subject to conditioning indica- 
tors in cols. 7-17. Thence, operations 
proceed sequentially, line by line, as is 
normal. Tf the TAG line is the last calcu- 
lation specification line in a cycle time- 
segment (detail time or total time) , the 
pertinent output operations follow (detail- 
time or total-time output) , and the program 
continues in its standard seguence as shewn 
in Figure 6, RPG Program Logic. (If the 
GOTO and TAG specifications are not in the 
same cycle time-segment, see immediately 
below.) 

Eranching Eetween Eetail-Time and Total- 
Time Calculations within EPG 

a. Eranching from total-time calculations 
to detail-time calculations. 

If the GOTO line contains an L- 
Indicator in Control Level (cols. 7-8) 
but the associated TAG line does net, 
the program skips from the point of the 
GOTO line in total-time calculations to 
the pcint following the TAG line in the 
detail-time calculations. 

Total-time and overflow-time outputs 
are bypassed. The status of all indi- 
cators remains unchanged — including 
L-indicators (L0-L9, LP), overflew 
indicators (OF, OV) , KB indicator, and 
Field Indicators. Figure 6, PPG P ro- 
SrajLLcxjic, shows what normal program 
actions are bypassed en a skip from 
total-time to detail-time calculations. 



The data from t^e previous card 
remains available. If the program then 
continues in the normal sequence, the 
data from the next card to be processed 
never beccmes available. 

If the LR (Last Record) indicator is 
en before the branch operation, it 
remains en until completion of detail- 
time output, at which time it is turned 
off by the program. Normal end-of-job 
routines are bypassed; the exact conse- 
quences, if an end-of-job situation 
exists, are difficult to predict in 
generalized terms, because they depend 
en a combination of conditions. 

b. Eranching from detail-time calculations 
tc total-time calculations. 

If the GOTO line is blank in Control 
Level (cols. 7-8) but the associated 
TAG line contains an L-indicatcr in 
Ccntrol Level, the program skips from 
the point of the GCTC line in detail- 
time calculations to the point follow- 
ing the TAG line in the total-time cal- 
culations. No detail-time output 
occurs. Data frcm the next card is not 
transferred to the input work area; the 
data from the card being processed 
remains available. (The same input 
data is repeatedly transferred tc the 
process area each time the program 
advances to detail-calculation time.) 

Total-time calculations from the 
pcint of the TAG line are executed 
(again) sequentially — subject to the 
status of conditioning indicators in 
cols. 7-17, as is normal. This is fol- 
lowed (unless bypassed by another GOTO 
instruction) aqain by total-time output 
and, if OF or CV is on, by overflow- 
time output--af ter which detail-time 
calculations recur. Eigure 6, FPG_Pro- 
gram Logic, should be consulted for the 
implications. 

Note: When branching from detail time 
to total time, the pertinent tctal-time 
calculations and output are performed-- 
even if total time would otherwise be 
bypassed (see Total-Time Processing on 
_|]Run_In]], under Program Logic Plow) . 
However, total time is still bypassed 
on subsequent cards--if it would norm- 
ally be bypassed — unless tctal time is 
reached by a GCTC instruction. 

If I-indicatcrs or card-type Result- 
ing Indicators were turned en cr off 
(by SETON or SETCF, or as Resulting 
Indicators) during detail-time calcula- 
tions precedinq the GCTC operation, 
they retain that status. Tf indicators 
assigned as Field Indicators, cr the MR 
indicator, were turned en or off during 
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detail-time calculations preceding the 
GOTO operation, they revert— af ter each 
repeated tctal-time output — to the set- 
ting they had immediately preceding the 
original detail-time calculations for 
the card beinq processed. 

If an overflow- indicator (OF and/or 
CV) vas turned on or off during detail- 
time calculations preceding the GCTO 
operation, it reverts--tef ere cverflcw- 
time cutput--tc its status at the end 
of the preceding total-time output. 
However, if OF (or OV) was off at the 
conclusion of the preceding total-time 
output, and a carriage-tape channel-12 
punch is encountered during cne of the 
repeated tctal-time outputs, OF (or OV) 
turns en. Once turned en ty channel 
12, it will always be en at cverflcw- 
cutput time, until the next detail-time 
output has been completed. 

Normally, branching frcm detail time 
to tctal time is employed to repeat 
printed output on paper forms. Hew- 
ever, if punching cr printing into 
combined-file cards is performed during 



repeated total-time output, it takes 
place in successive cards of the file 
and these additional cards are not 
read. (See Multi ple -Time Output to 
Cards during One Program Cycle, under 
Pr og ram logic Flow . ) 

Note: When the calculation specifications 
call for branching (GCTO and TAG) between 
detail time and total time, a warning mes- 
sage is printed during generation cf the 
object program: "GOTO AND TAG ARE NOT IN 
THE SAME CALCULATION TIME." 

Figures 44A and B illustrate GOTO and 
TAG specifications. (The particular speci- 
fications used in Figure 44 — other than 
GOTO and TAG — were random choices.) 

Explanation of Entries in Figure 44A 

If the result of the subtraction in line 1 
was negative, control is transf erred--by 
the specifications in line 02--to RTN1 
(say, Routine 1) in line C9 — both points 
wholly within detail time. Otherwise, the 
multiplication in line 03 is first 
executed, and then control is transferred 
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to line C?., This illustrates a conditional 
branch (Indicator 10 in line 2) and an 
unconditional tranch (no Indicator in line 
04) ; it also exemplifies forward branching 
frcm several pcints of origin (lines 02 and 
04) to the same point of destination (line 
C9). 

If the last operation in Routine 1 does 
not turn en indicator 15, the program 
branches at that point to BTN2 (say, Ecu- 
tine 2) --both the point of origin and the 
point of destination lying within detail 
time. Routine 2 followed by Routine 1 are 
then executed repetitively until indicator 



I _> LU111S l^u , 



: f +■ c ■»- + V. , 



"pvf cennen + 'i al 



specification after Routine 1 is executed. 
This group of entries illustrates use of a 
program loop (line 13 to lines 05-12), and 
branching back to an earlier specification 
line within the same cycle time-segment. 

After indicator 15 has turned on, the 
next sequential operation (line 14) is car- 
ried cut. If the zone in the high-order 
position of ZETA is the equivalent of minus 
(i.e., indicator 20 is net en) , the program 
continues sequentially; but, if indicator 
20 is on, detail-time calculaticns are ter- 
minated. Detail-time output is then the 
next operation. These entries shew hew to 
bypass remaining detail- time calculaticns: 



the GCTO branch is to a TAG line that is 
the last detail-time specif icaticn — the 
ENDDTT TAG-line is blank in Control level 
(cols. 7-8) , which defines it as a detail- 
time specif icaticn; the next specification 
line has an L-indicator in Control Level 
(cols. 7-8) , which defines it as a total- 
time specification. Therefore, the ENDDTL 
TAG-line is the last detail-time calcula- 
tion specification. 



If, instead of blanks, an L-indicator 
were entered in Control Level (cols. 7-8) 
of the ENDDTL TAG-line, the effect would 

be-- 

If indicator 20 is net en: no 
difference . 



If indicator 20 is o 
tions in line 14 wcu 
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Explanation of Entries in Figure 44E 

The specifications in lines 02 tc 04 are 
always executed at detail time. If the HE 
(Matching Eeccrd) indicator is on, detail- 
time output follows, subsequently followed 
by tctal-time calculations in the normal 
manner. If the ME indicator is off, 
detail-time output is bypassed, and the 
program executes tctal-time specifications, 
beginning with line 10 — or a subsequent 
line, depending en the status of the L- 
indicators in Control Level (eels. 7-8) ; 
if L1 and 12 are both off, tctal-time out- 
put is the next operation after detail-time 
calculations. This illustrates not enly 
bypassinq of detail-time output, but also 
the facility of entering intc any point of 
the total-time calculations. It alsc 
points cut that, if the status of all con- 
ditionino indicators happens tc prevent 
execution of any calculation specification 
in a cycle time-segment, total output for a 
time segment can occur without any preced- 
ing calculation operations. 

If indicators L2 and 12 (line 13) or 11 
and 99 (line 15) are on, tctal-time and 
overflow-time outputs are bypassed, and 
specification line 02 of detail-time calcu- 
lations is executed next. In the former 
case (Indicators L2 and 12 en) , the last 
total-time calculation specification is 
also bypassed. If neither the indicator 
pairs L2 and 12 , nor 11 and 99 are en, 
total-titre calculations are completed in 
the normal manner, followed by tctal-time 
output. These specifications illustrate 
the following: branching from one of two 
points of origin tc one point of destina- 
tion; bypassing of tctal-time output, and 

e-pt ie-fral eon-curr^n t bypassing cf scire 

total-tiire calculation specifications (line 
14). 

Note: The TAG lines defined as tctal-time 
lines (see, for example, line C9 in Fiqure 
44E) by entry cf an L-indicator in Control 
level (eels. 7-8) will perform their func- 
tion regardless of whether the particular 
indicator is en. 

Eranching to an External Ecutine 

EXIT (Branch To) 

This operation code defines a point in the 
EPG calculation specifications at which 
control cf the program is transferred tc a 
designated external subroutine previously 
prepared in System/360 Model 2C machine 
language. The address for return to the 
EPG program is stored in register 14. 

Factor 2 must contain the name (the 
address) of the subroutine tc which control 
is tc be transferred. (This name is 
entered at STAET in the sutrcutine.) The 
name may be one tc four positions long. 



The first character must he alphabetic and 
must he in col. 33; the optional (one, two, 
or three) additional characters may be 
alphabetic or numeric (special characters 
and embedded blanks are net permitted). 
The name must be unigue: it must not also 
be a field or TAG name within EPG. 

Factor 1, Eesult Field (and the asso- 
ciated fields for Field Lenqth, Decimal 
Positions, and Half-Adjust) , and Eesulting 
Indicators--!. e. , eels. 18-27 and 43-5S-- 
must all be left blank. 

The EXIT operation can be an uncondi- 
tional branch: — cols. 7-17 are then 
blank; or it can be a conditional branch — 
i.e., there are entries in Control Level 
and/cr in Indicators, cols. 7-17. 

If Control Level (cols. 7-8) contains 
an entry (L0-L9, or IE), the branch is 
executed at total time, provided the parti- 
cular L-indicator is on— and subject to the 
status cf indicators that may be desiqnated 
in Indicators (cols. 9-17) . If Control 
Level (cols. 7-8) is blank, the branch is 
executed at detail time--sub ject to the 
status cf indicators that may be designated 
in Indicators (cols. 9-17). 

Position of EXIT Specifica tion s. The EXIT 
operaticn may be used anywhere in the EPG 
program. However, the user should be aware 
of the following considerations regarding 
fcur specific positions of the EXIT opera- 
tion code in the program: 

1. If the EXIT operation is the first 
detail-time calculation specification 
of the program, control will be trans- 
ferred" to the subroutine upon comple- 
tion cf the input routine; i.e., as 
scon as the pertinent input data has 
been placed in cere storage, ready for 
processing by detail-time calculation 
specifications . 

2. If the EXIT operation is the last 
detail-time calculation specification 
of the program, ccntrcl will he trans- 
ferred to the desianated subroutine 
immediately before detail-time output. 
Upon return from the subroutine, the 
EPG output routine is entered. 

3. If the EXIT operation is the first 
tctal-time calculation specification of 
the program, the exit to the subroutine 
takes place just after the record type 
has been determined and any control 
fields have been tested . 

4. If the EXIT operation is the last 
tctal-time calculation specification, 
control will be transferred immediately 
before total-time output. Upon return 
from the subroutine, the BPG output 
routine is entered. 



146 System/26C tfodel 20 CFS Pepcrt Frcoram Generator 



Kequi rem ents ana Restricticns re ± axe a to 
use of external subroutines with Model 20 
card EPG: 



1. 



j. 



All subroutines to be incorporated in 
this EPG program must have been ceded 
in Mcdel 20 Easic Assembler Language 
(usinq the IBM System/360 Easic 
Assembler Short Coding Form, X28-6506), 
and converted separately (frcm the EPG 
program) to machine language with the 
Basic Assembler program. The resulting 
cb ject-program deck is leaded at EPG 
program-generaticn time. If the cbject 
program is punched out, the sutrcutine 
becomes an inteqral part of the pur.ched 
object deck in TXT-card format, so that 
it is reloaded with the cbject deck 
each tiire it is leaded tc perform the 
particular job. 

Since the subroutines and the EPG 
program are to be linked, the subrou- 
tines must be relocatable and all Easic 
Asseirtler linking conventions must be 
observed. 



a. 



Fields used in both the EPG prcgram 
and subroutines must be defined and 
identified in the EPG prcgram--see 
ELAEI, below. 



Note: A field cannot be defined in 
the subroutine for use in EPG; 
i.e., the UIABI statement is net 
available. 



b. Indicators used in a subroutine 
must be identified in the EPG 
program--see ELAEI, below. 

A subroutine can have cr.ly ere entry 
point, and this must be its first 
instruction. 

The subroutines must net consist of 
mere than a single segirent each, ncr 
can control be transferred frcm one 
subroutine tc another. 



ce axt tuipLtu wxtnoui. a coin prenensi ve 
grasp of device instructions, device 
and prcgram time relationships, and the 
internal logic of the EPG object pro- 
qram. Almost invariably, difficulty 
will be experienced by the user whose 
subroutine addresses any of the same 
I/O devices employed in the associated 
EPG program. 

Use_of Registers in External Subrouti nes 
calls for observance of the followina rules 

1. Register 15 must be the base register 
fcr all subroutines. (The first 
instruction must be EASR 15,0 if 
instructions in the subroutine 
reference ether points within the 
subroutine. ) 

2. PEG automatically stores the return 
address in register 14. The return 
address is the address of the EPG 
calculation-specification statement or 
ether operation to which control is to 
be returned upon completion of the sub- 
routine; i.e., the address of the sta- 
tement cr operation following the EXIT 
operation . 

3. The contents of any other registers 
used within the subroutine must be pre- 
served before the subroutine is 
executed. 

Such registers must be restored to 
their oriainal contents before control 
is returned to the main (EPG) program. 

4. Eegisters 12 and 13 should not be used 
if the program is ever to be run on a 
System/360 model higher than Model 20. 

Use of Indicators in Subroutines reouires 
ELAEL statements in EPG (see below) , and 
the follcwinc information: 



1 



The hexadecimal representation fcr 
the indicatcr-CN condition is F0. 



Fields defined in one subroutine cannot 
be used in another subroutine. 



b. The hexadecimal representation for 
the indicatcr-CFF condition is 0C. 



lata in fields defined as ruireric ir 
the EPG program is transferred tc a 
sutrcutine in packed fcrmat. Data in a 
field defined as numeric that is trans- 
ferred frcm a subroutine to the EPG 
object program must be in packed 
format . 

The facility for branching tc external 
subroutines (i.e., operation code EXIT) 
is net intended for the performance of 
input cr output operations. 

Input or cutput operations via 
instructions in subroutines should not 



2. To turn an indicator CN or OFF, set the 
data located at TSxx (see ELAEI, below) 
tc F0 cr 00, respectively. 

3. To test the status of an indicator, 
examine the data located at INxx (see 
ELAEL, below) for hexadecimal FC (=ON) 
or hexadecimal CC (=0FF) . 

EIAEI (Beference. Label) 

All fields that are used both in the EPG 
proqram and in an external subroutine must 
be defined in the EPG proqram. In addi- 
tion, each field used in both the hPG pre- 
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gram and an external subroutine, and each 
indicator referenced in a subroutine, must 
be especially identified ir the EPG 
program. 
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ELAEL lines may appear in any position 
among the calculation specifications; hut 
core space during object-program generation 
is censerved by grouping all of them as the 
last calculation specifications. 

A maximum tctal of 14 indicators and/or 
EPG field names--i . e . , up tc 14 field names 
and indicators identified in ELAEL lines- 
can he used in one external subroutine; but 
any field name or indicator identified in 
an ELABL statement may be used in any num- 
ber of subroutines. (Ey means of a special 
subroutine that simulates indexing, it 
would be possible to exceed this limit of 
14.) 

The_Field_Kame in an ELAEL line may he from 
one to four characters long, beginning in 
col. 43. The first character must be 
alphabetic; the cpticnal (cue, two, cr 
three) additional characters' may be alpha- 



betic or numeric (special characters and 
embedded blanks are not permitted) . If the 
field name is not defined in the input spec- 
ifications, or elsewhere in the calcula- 
tion specifications, it must be defined 
here: field lenath must then be entered in 
cols. 49-51 and, if the field is to be 
defined as numeric, ai entry (C-9) is made 
in Decimal Positions ;col. 52) — see sec- 
tions on Fesult Field, Field Length, and 
Primal Petitions, above. 
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An Indicator tha 
is identified in 
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44, followed by 
the relevant ind 
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the data located 
the ME (Patching 
tested or set in 
ELABL line with 
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t is used ir a subroutine 

the Fesult Field of an 
e letters IN in cols. 43- 
the letters cr numbers of 
icator. In the subroutine, 
an then be referred to as 
at INxx. For example, if 
Records) indicator is 
an external subroutine, an 
the characters INPF in 
eguired; ir the subroutine, 
an then be referred to as 
at INMR. 



Fiqure 45 illustrates both PP3 and Fasic 
Assembler Languaae ccdina skeletons for an 
external subroutine' operation. 
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Figure 45. Coding Skeletons fcr Sample External Subroutine Application, 
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General Introduction 



fied, the former data still remains avail- 
able to the program, unless an external 
subroutine instruction has placed other 
data into the same location. 
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Tatles can be in ascending, 
or random seguence ; but unsegu 
can only be scanned for an "eg 
Any number of tatles may be us 
program, within the limits of 
core storage space. Aroument 
tables need not be in the same 
nor need they have the same da 
(alphameric or numeric). Any 
storage can be employed as an 
table or as a function table, 
assignment need not fce uniform 
ferent look-up instructions in 
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enceu tables 
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available 
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argument 
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the program. 



The table name, seguence (ascending, 
descending, cr random) , table-input arrange- 
ment (argument and function alternating 
or separate) , and number of entries in a 
table, as well as the format of the entries 
themselves (alphameric or numeric, location 
of decimal point, size of field), are 
defined in the File Extension 
Specifications — described in the next 
chapter. 

Tables in core storage cannot be updated 
or changed in any way by the Model 20 card 
RPG program. 
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14' 



Note: It is possible, by ireans cf an 
external subroutine (see EXIT, above), to 
update tables during execution cf an RFG 
program and, optionally, tc punch them out 
in ccnverient format at cb ject-prograir 
executicr time. 



However, a table cannot be expanded by 
additional entries at object-program execu- 
tion time--unless its size specification 
was deliberately inflated and the table- 
input deck was padded with blank cards (see 
Number of Table Entries per Table, in File 
Extension Specificat ions ) . 



Tables are loaded with the EPG source 
program at prooram-generaticn time, and are 
printed cut at generation time exactly as 
entered. If the cbject program is punched 
out, the tables form an integral part cf 
the punched object deck, in TXT-card for- 
mat, so that they are reloaded with the 
cbject deck each time it is loaded tc per- 
form the particular job. 

IOKDP (Table Icck-Up) 

This operation code, entered in cols. 28- 
32, causes a table search tc be performed. 
It is used in ccnjuncticn with Resulting 
Indicators assigned in eels. 54-59 and with 
desiqnaticn cf a search factor (search 
argument) , the name cf a table tc be 
scanned (argument table) and, optionally, 
the name cf a table (called a function 
table) that is tc provide a functicn asso- 
ciated with the argument. 

The pertinent associated entries, in the 
same calculaticn-specif icaticn line, are: 

1. Control Level (eels. 7-8) --optional. 

a. If blank, the leck-up is performed 
at detail tine, subject to Indica- 
tors (cols. 9- 17) . 

t. If L-indicatcr (10, L1-L9, IR) is 
entered, the lcok-up is performed 
at total time, provided the parti- 
cular I-indicator is then en, and 
subject to Indicators (eels. 9-17) . 

2. Indicators (cols. 9-17) — optional. 

Cn or off status of indicators may be 
designated to condition execution cf 
the leck-up operation. 



3. Factor 1 (cols. 18-27) 
argument — reguired. 



search 



a. An alphameric or numeric literal, 
or 



b. A field name defined in the input 
specifications or elsewhere in the 
calculation specifications, or 



c. The name of a table. A table entry 
selected in a previous IOKUP opera- 
tion may thus become a search 
argument. 

4. Factor 2 (cols. 33-38) : argument 
table- -re qui red. 

Enter (left-aligned) the name of the 
table to be searched for data that 
bears a predetermined relationship (see 
Resulting Indicators, item 8, below) to 
the search argument. 

All table names begin with the let- 
ters TAB, followed by one, two, or 
three alphabetic and/or numeric 
characters — see File Extension Specifi- 
cations, below. 

Note: Data in the argument table must 
have the same total field length and 
format (alphameric or numeric) as the 
search argument; but the decimal-point 
location (for numeric fields) need not 
be identical. No decimal alignment is 
performed by the program in a LCKUP 
operation. 

5. Result Field (cols. 43-48) : function 
table- -optional 

Enter (left-aligned) the name of the 
table from which an associated function 
is to be retrieved (after an appropri- 
ate table argument—Factor 2 — has been 
located to satisfy the search argument 
— Factor 1) . 

Note: The manner in which the program 
determines the function-table entry 
that corresponds to an argument-table 
entry is described below ( Performanc e 
and Results of a Table Look-Up Opera - 
tion, part 2) . 



Enter the search argument, left-aligned 
(i.e., beginning in ccl. 18) . 

This may be either: 
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6. Field length (eels. 49-51) and Decimal 
Positions (ccl. 52) --optional; may 
always be left blank. These fields 
must be left blank if nc function table 
(Eesult Field) is specified. 

If a function table is specified (in 
eels. 43-48) , Field Length and Decimal 
Positions (if numeric) may be defined 
here. This is, however, superfluous, 
since all tables must in any case be 
defined in the File Extension Specifi- 
catiens. If the Result Field is rede- 

IJ-lieu Eclc, n:c I'lciu LCii(]Iii a r CI 

Deciiral-Positicns entries must acccrd 
with these in the File Extensicn 
Specifications. 

7. Palf-Adjust (ccl. 53) : leave blank 

8. Resulting Indicators (eels. 54-59) — at 
least cne entry required (hut never 
more than twe— see below) . 

The argument table (Factor 2) is 
searched for an entry that bears tc the 
search argument (Factor 1) the rela- 
tionship designated by the assignment 
cf ere or two resulting Indicators. 

Note : Tables are stored in the order 
in which the table data is leaded — no 
check is made to assure that the table 
sequence adheres tc any sequence 
(ascending or descending) that may be 
specified in the File Fxtensicn Speci- 
fications. The search always commences 
with the table entry loaded first, and 
progresses entry-by-entry until the 
designated search condition is satis- 
fied or the search is terminated. 
Thus, if an cstensibly seguential table 
is out of order, inappropriate table 
data may be selected and incorrect 
Resultirg-Indicator setting may he 
caused (see samples, below). 

Resultino Indicators assignments in a IOFUP 
operation have the effects iteni2ed below: 

A Resulting Indicator assigned to Fgual 
(cols. 58-59) instructs the program tc lo- 
cate an argument-table (Factor 2) entry 
equal to the search argument (Factor 1) . 
The indicator turns en if such an entry is 
found; otherwise, it turns off. 



Note: The status cf a Resulting Indicator 
assicned tc Fgual cf a LCKUP cferaticr. is 
not affected by a Blank-After instruction 
in the output-format specifications, ncr is 
it set on at the beginning cf program 
execution. 



An indicator assigned tc low (eels. 56- 
57) instructs the prograir tc locate that 
argument-table entry that is nearest to, 
but lower in seguence than, the search 



argument. The indicatcr turns en if such 
an entry is f cund ; otherwise, it turns off 

An indicatcr assigned tc Hich (cols. 54- 
55) instructs the program to locate that 
argument-table entry that is nearest to, 
but higher in sequence than, the search 
argument. 
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When several successive identical 
entries exist in the argument table, the 
first one encountered that meets the appro- 
priate search criteria is selected: for an 
Fgual cendition, this is the first equal 
value; for a High or Lew condition, it is 
the high or lew entry physically closest tc 
egual, provided the table is in proper 
order. The significance of this (i.e., why 
it matters which of several egual entries 
is treated as the "hit") becomes apparent 
when function tables are discussed (below) . 

If the argument table is not specified 
to be in ascending or descending sequence, 
a search can only be made for an Fgual con- 
dition. (If an indicator is assigned to 
High or low, but seguence is not designated 
for the argument table in the file exten- 
sicn specifications, a warning message is 
printed at program-generation time.) 

Note: The column headings of High and Low 
for Resulting Indicators must be considered 
reversed for the LOKUP operation — for LOFUP 

High stipulates: Factor 2 > Factor 1 
Low stipulates: Factor 2 < Factor 1 



The expanded explanations below cover 
further particulars — including the contin- 
gency of an argument table, defined as 
being in seguence, being cut of order: 

1. If nc seguence is designated in the 

file extension specifications (col. 45 
or 57) --reqardless of whether the table 
is actually in seguence: A (any) 
Resultino Indicator must be assiqned to 
Egual (cols. 58-59) . 

Note: If no sequence is specified in 
the file extensicn specifications, a 
resulting Indicator assigned to Fiah 
(eels. 54-55) cr Lew (cols. 56-57) will 
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2. 



te ignored — i.e., retains its former 
setting—if an indicator is also 
assigned to Equal; if none is assigned 
to Egual, the indicator assigned to 
High or to Low is treated as though 
assigned to Equal. If no Resulting 
Indicator is assigned to Egual, tut 
different indicators are assigned to 
both High and low, the indicator 
assigned to High is treated as assigned 
to Egual; the other one is ignored. (A 
warning message is printed during pro- 
gram generation.) 



The program searches through the 
argument table (Factor 2) until it 
either finds the first data that 
matches the search argument (Factor 1) 
exactly, or the entire table has been 
scanned—whichever occurs first. 

If a match is found, the Resulting 
Indicator assigned to Egual turns en; 
if no match is found, it turns off. 

Example: Search argument (Factor 1) = 

5. 
Argument table (Factor 2) = 

1, 3, 5, 5, 8, 9. 
The first (underlined) 5 is 

selected, and the Result- 

ing Indicator assigned to 

Egual turns on. 

If Ascending argument-tatle sequence is 
designated in the file extension speci- 
fications: The table is assumed to be 
leaded in ascending seguence. 

.A .(.an.y.)_....E£s.uJLtijicf....lJid.ic.at.cr...mii£t...Jb.e.. 
assioned to at least cne of the three 
fields (cols. 54-55, £6-57, 56-59); but 
the same or different indicators may 
also te effectively assigned to two 
fields: High and Egual, or tow and 
Egual. The indicator for the condition 
that is satisfied turns en; the indica- 
tor assigned to a second condition 
turns off, unless it is the same 
indicator. 

If indicators are assigned to High 
and Equal, or to Lew and Egual, Equal 
takes precedence if the Equal condition 
can be satisfied (and provided the 
table is in proper seguence) . 

a. If a Resulting Indicator is 

assigned only to Egual (cols. 58- 
59) : The lock-up operation is 
identical to that described under 
1, above. Nothinq is gained by 
designating a seguence in the file 
extension specifications. 

Ix am pie-- which illustrates the 
search for Equal through the entire 



table, even thouch the table is out 
of order: 

Search argument = 5. 

Arqument tatle = 1, 2, 9, 1C, 4, 5, 

6 . 
5 is selected. 

b. If a Eesultino Indicator is 
assigned only to Hioh (cols. 54- 
55) : The first argument-table 
entry encountered which is hiaher 
in sequence than the search arou- 
ment is selected (i.e., becomes the 
data accessed whenever, thereafter, 
the table name is used as a field 
name, before another LCKUP opera- 
tion on the same table) . 

Examples : 

(i) Search, argument (Factor 1) = 5. 

Argument tatle (Factor 2) = 1, 
3, (5), 8, 9, ... 

8 is selected as satisfyino the 
search conditions, reqard- 
less of whether the entry 5 
is present in the table. 

The Fesultinq Indicator 

assiqned to Hiqh turns on. 

(ii) Search araument = 5. 

Arqument table = 1, 1, 2, 3, 3, 
n c c c 
^ i -/ ~> i -• • 

No table entry satisfies the 

search condition. 
The Resulting Indicator 

assiqned to Hiqh turns off. 

Eut note: 

(iii) Search arqument = 5. 

Argument table = 1, 8, 8, 6, 5, 
6 , ... (table cut of 
sequence) 

The first (underlined) 8 is 
selected, although 6 is 
nearer to 5 in value and 
position; tut the first 8 is 
the first value greater than 
5 that is encountered . 

The Resultina Indicator 

assigned to High turns on. 

c. If a Resulting Indicator is 
assigned only to lew (cols. 56-57) : 
The argument-table entry that is 
nearest to, but lower in seguence 
than, the search argument is 
selected — provided the table is in 
proper seguence. 

Note: To generalize for any 
seguence in which the table miqht 
actually be (when ascendinq 
sequence is specified) : The last 
argument-tatle entry is selected 
which precedes the first entry that 
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is either equal tc, or higher than 
the search argument. 

Examples: 

(i) Search argument = 5. 

Argument table = 1, 3, (5), 8, 
9 . .. 

3 is selected as satisfyinc the 
search condition, regardless 
of whether the entry 5 is 
present in the table. 

The Resulting Indicator 

assigned tc Low turns on. 

Eut note: 

(ii) Search argument = 5. 

Argument table = 1, 2, 2, 10, 
3, 4, 5, 6 (table ott of 
sequence) . 

The second (underlined) 2 is 
selected, although 4 is 
closer to 5 in value and 
position. The seccnd 2 is 
the entry that immediately 
precedes the first- 
encountered entry (1C) that 
is egual tc or higher than 
the search argument (5) . 

The Resulting Indicator 

assigned tc Low turns en. 

If Resultina Indicators are 
assigned both to High and lew 
(irrespective of whether an indica- 
tor is also assigned tc Egual) : 
The indicator assigned tc tow is 
ignored, and retains its fcrmer 
status. (The effect of the indica- 
te! assigned to Eiqh is explained 
above and below. ) 

If Resulting Indicators are 
assigned to High (eels. 54-55) and 
Egual (eels. 58-59) : The first 
argument-table entry encountered 
which is either egual tc, or higher 
in sequence than, the search argu- 
ment is selected. 

Examples: 

(i) Search argument (numeric) = +5. 

Araument table = 1, 3, 5, 5, 7, 
9. 

The first (underlined) 5 

encountered is selected as 
satisfying the search condi- 
tions: an entry is always 
tested first for Equal, if 
an indicator is assigned to 
Equal. 

The Resultinq Indicator 

assigned tc Equal turns en; 
the indicator assigned to 
High turns off, if it is a 
different indicator. If the 



same indicatcr is assigned 
to both conditions, it turns 
on if either condition is 
satisfied; it turns off only 
if neither an Egual nor a 
High condition was 
satisfied . 

(ii) Search argument (numeric) = 5. 

Argument table = -8, -5, -4, 0, 
+1 « +7 9 

+7 is selected, being the 
first-encountered value 
algebraically equal to or 
higher than 5- 

The Resultinq Indicator 

assigned tc Hiqh turns on; 
the indicator assigned to 
Egual turns off, unless it 
is the same indicator. 

(iii) Search arqument = 5. 

Argument table = 1, 1, 2, 3, 3, 

4, 4. 
No table entry satisfied the 

search conditions. 
The Resulting Indicators 

assigned to High and to 

Egual turn off. 

f. If Resulting Indicators are 

assigned tc Tow (cols. 56-57) and 
Equal (cols. 58-59) : The first 
argument-table entry that satisfies 
either condition — as explained in 
(a) and (c) above — is selected. 
However, each table entry is tested 
first to see whether it is egual to 
the search argument: if higher, 
the program then selects the last 
precedinq lower entry. 

Ex amples: 

(i) Search argument (alphameric) = 
N. 

Araument table = A, +5, E, J, 
-5, K, F, S, 5. 

-5 (=N) is selected (i.e., 
first egual encountered): 
an entry is always tested 
first for Egual, if an indi- 
cator is assigned to Egual. 
The Resultinq Indicator 
assigned to Equal turns on; 
the indicatcr assiqned to 
Low turns off, unless it is 
the same indicator. 

(ii) Search arqument (alphameric) = 
N. 

Argument table = A, +5, E, J, 
J,- F, S, 5, 

The seccnd (underlined) J is 
selected: P is hiqher than 
N (in the EECEIC sequence); 
the program therefore 
selects the last precedina 
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lower entry. 
The Resulting Indicator 

assiqned tc Lew turns en; 
the indicator assigned to 
Equal turns off, unless it 
is the same indicator. 



No table entry satisfies search 

conditions. 
The Fesultinq Indicators 

assianed tc Tow and to Ecual 

turn off. 



Put note : 



Eut note 
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3. If Descending argument-table sequence 
is designated in the file extension 
specifications: The table is assumed 
tc be loaded in descending seguence. 

The effect of LCKUF operations is 
identical as for ascending tables (see 
2, above). The only differences occur 
when supposedly sequential tables are 
cut cf order. 



b. 



(iv) Search arqument = 5. 

Argument table = 9, 1, U, 5, 4, 
3 (table cut of seguence). 

1 is selected, although there 
is an Egual value in the 
table : 1 is the first value 
encountered that is lower 
than 5, and it is encoun- 
tered before 5. 

The Resultina Indicator 

assigned tc low turns en; 
the indicator assiqned to 
Equal turns off, unless it 
is the same indicator. 

If Eesultinq Indicators are 
assigned tc Hiqh (eels. 54-55) and 
Egual (eels. 58-59) : 

(i) Search argument = S. 

Argument table = Z, V, T, R, B. 

T is selected . 

The Pesultinq Indicator 

assiqned tc High turns en; 
the indicator assiqned to 
Egual turns off, unless it 
is the same indicator. 



Examples 



If Pesultina Indicators are 
assigned tc Tow (eels. 56-57) and 
Equal (eels. 5'8-5'9y. " 

(i) Search arqument (Factor 1) = 5. 
Arqument table (Eactcr 2) = 9, 

8, 6, 5, 5, 2, 1. 
The first (underlined) 5 

encountered is selected. 
The Resulting Indicator 

assigned tc Equal turns on; 

the indicator assigned to 

low turns off, unless it is 

the same indicator. 

(ii) Search argument = 5. 

Araument table = 9, E, 6, 6, 3, 
3, 1, 0. 

The first (underlined) 3 
encountered is selected. 

The Pesulting Indicator 

assigned tc Lew turns en; 
the indicator assigned to 
Egual turns off, unless it 
is the same indicator. 

(iii) Search argument = 5. 

Argument table = 9, 9, 8, 7, 7,6 
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Performance and Results cf a Table Icox-Up 
Operation 

1. Using a single table 

This provides indicator settinqs that 
reflect the success (if any) and nature 
cf the match achieved (Hiqh, Low, or 
Egual) , and--if a match was achieved — 
access to the appropriate argument- 
table data selected. 
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As explained in detail aLOve: Tne 
operation code LCKUP is specified in 
Operation ; 

The search argument (literal or 
field name) is entered in Factor 1 ; 

The name — TABx (x) (x) — of the argu- 
ment table is entered in Factor 2; 

Cne or two Resulting Indicators are 
assigned — to determine the type of 
match desired between the argument- 
table and the search— argument 
entries, and to reflect the result; 

An L-indicatcr is entered in Con- 
trol Level if the LCKUP is to take 
place during total-time calcula- 
tions; Control Level is left blank 
if the operation is to be performed 
at detail time; 

If desired, execution of the opera- 
tion is made contingent en the sta- 
tus of conditioning indicators 
entered in Control Level (cols. 7- 
8) and in Indicators (cols. 9-17). 

When the LCFUP operation is 
terminated : 

The status of the Resulting Indicators 
reflects the result of the table 
search. 

A core storace "hold" area, pre- 
viously assigned to each table by the 
program, contains the argument-table 
data that was selected because it sat- 
isfied a search criterion (Egual, Eigh, 
cr Lew). (This is a separate core 
location — not part of the location 
where the table is stored. The integ- 
rity of the storage of the table 
itself is not disturbed.) 

If a search critericn was not satis- 
fied (i.e., no match was found of the 
type specified by the indicators 
assigned in Resulting Indicators) , no 
move to the hold area is performed. It 
then retains its former contents: the 
data selected as a result of a previous 
LCKUE operation on the same table; or, 
data placed there by using that table 
name as a result field in an external 
subroutine; cr, if nothing was ever 
placed into the field, blanks (if 
alphameric) cr 2ercs (if numeric) . 

Subseguent availability of data 
selected frcn a table in a LCKUP 
operation: 

Whenever a table name (TAExxx) is 
used as a field name in Factcr 1 cr 
Factor 2 — in an operation ether than 
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held area for LCKUP-selected table 
data, not the table-storage area 
itself. The last data placed in that 
held area is thus accessed by use cf 
the field name in any other operation, 



By entering the a 
as a Factor in other 
tiens, the data last 
argument table can b 
data for other calcu 
tions; by using the 
as a Field Name in t 
specifications, the 
from the argument ta 
and/or punched. 
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By using the argument-table name as 
Result Field in an external subroutine, 
the contents of that hold area can be 
changed — but this does not alter the 
table data, which is stored elsewhere. 
(The selected argument-table data in 
the hold area can be made available to 
external subroutines by identifying the 
field by the TABx field name in the 
Result Field of an RIAEI line. Ncte , 
however, that the table name must con- 
sist cf exactly four characters- -TABx. ) 
If the argument-table hold area is not 
referenced as a field immediately after 
the ICKUP operation, the user must be 
careful not to alter its contents (by 
use in an external subroutine) if he 
intends subseguently tc utilize the 
selected argument- table data. 

The argument-table name may also be 
used as Factcr 1 (search araument) in a 
LOKUP operation 



„ „ _,_ ^,v, _, ,_, 
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is then the data selected from the 
argument table in a previous LCKUP 
operation, or data placed in that hold 
area by an external subroutine. 

A tatle name must net be used in 
Result Field except in a LCKUP or E T AEL 
operation. 

2. Use cf two tables in a TC^UP operation. 

All statements made for use of a sinale 
tatle (see 1, atcve) apply. In addi- 
tion, data in a corresponding position 
of a second table—called a function 
tatle--becomes available when a match 
is achieved between the search argument 
and data in the argument table. 

The name--T AEx (x) (x) --of the func- 
tion tatle is specified in Result Field 
(cols. 43-48). (If desired, Field 
length and Decimal Positions (if numer- 
ic) may also be redefined; but this is 
redundant, since they must be defined 
in the file extension specifications.) 
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Data in a function tatle need net 
conform to the data format — field 
length, alphameric or numeric data, or 
deciiral pcsiticns--in the argument 
tatle with which it is to be asso- 
ciated; nor need the function table 
adhere to the same data seguence as the 
argument table. 

The function table may contain the 
same number of entries as, or more 
entries than, any argument table with 
which it is to be associated. 



If a function table contains less 
entries than an argument table with 
which it becomes associated in a LCKUP 
operation, a warning message is printed 
at program-generation time. At object- 
program time: 

Proper function data is selected 
(i.e., made available, by the table 
name as a field name, to subseguent 
operations) if the selected 
arqument-table entry is the nth 
entry (counted free the front of 
the argument table) , and n is egual 
tc or less than the number of 
entries in the function table. If 
n is greater than the number of 
entries in the function table, the 
function data selected is unpre- 
dictable: it is obtained from a 
core storage location outside the 
area occupied by the function 
table. (Blanks cr zeros can be 
assured in such case by increasing 
the specified size of the function 
table to match that of the argument 
table, and appending an appropriate 
number- -of blank cards to the 
table.) 
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entry (Factor 2) , by counting from the 
front of the argument table. It then 
selects, from the specified function 
table (Result Field) , the same relative 
entry, counted from the front of the 
function table. 

For example: 

Search argument = 5. 

Argument table = 1, 3, 4, 5, 5, 6, 

8. 
Function table = B, R, T, K, A, W, 

F, G, L. 
Resulting Indicator assiqned to 

Egual. 
The indicator assianed to Equal 

turns on. 

The first (underscored) entry with 
5 is selected frcm the argument 
table for its hold area. Subse- 
quent operations referencing the 
argument-table name access that 
held area, and the data supplied to 
the operation is the value 5. 

The first 5 is the fourth entry in 
the argument table. Therefore, the 
fourth entry — which contains the 
character K--is mcved from the 
function table to its hold area. 
References to the function-table 
name in subseguent operations 
access that hold area, and the data 
supplied to the operation is the 
character K. 



The f urticn-table data selected for the 
hold area is determined by the program as 
follows: 



This also illustrates that the pro- 
gram's consistent selection cf a 
particular one of several egual 

arg-trmeTrt^trairie entries (see the two 

5s above) affects function-table 
entry selection. (If the second 5 
had been selected — although irrele- 
vant to subseguent use of the 
argument-table name as a field 
name — a different function-table 
entry would have been selected — 
namely, A.) 



Note the effect en function-table-entry 
selection when the argument table is not 
sequenced cr, although supposedly 
sequenced, is out of order: 

Search argument = 5. 

Argument table = 1, 3, 4, 6, 8, 5, 

5. 
Function table = B, R, T, K, A, W, 

F, G, I. 
^esultinq Indicator assigned tc 

Egual. 
The indicator assigned to Egual 

turns on. 



The program establishes the relative 
pesitien cf the selected argument- table 



The first (underscored) entry with 
5 is selected frcm the araument 
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tajjj.e. Tins is new, novever, tr.e 
sixth (rather than the fourth) 
entry (see previous example) . 
Therefore, W (instead of K) is 
selected from the function table. 
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Examples of table look-up operations, 
and related calculation specifications, 
follow discussion of the File Extension 
Specif ications--next chapter. 



Points tc Note for ICKUP operations 

1. Comparison between data in the argument 
table and the search argument is: 

a. ilgebraic-^if the field is defined 
as numeric; i.e., negative values 
are lover in seguerce than positive 
or unsigned values. 

b. Icgical--if the field is defined as 
alphameric; i.e., the comparison is 
tased on the EHCEIC seguence (see 
Figure D1, Appendix D) , and this 
seguence cannot (for LCKUP) be 
altered by a translation table. 

2. The search argument and the argumert- 
table data (but not necessarily the 
function-table data) must have the same 
data format: both defined as alphamer- 
ic or as numeric, and both must have 
the same total field length (including 
any decimal positions) ; but the number 
of decimal places (if numeric) may 
differ between search argument and 
argument-table data. 

3. No decimal alignment is performed 
tetween search argument and argument- 
table data: the two fields are com- 
pared in their entirety. 

i\. Table fields may have a maximum size of 

a. 15 positions, if defined as numeric 

b. 8C positions, if defined as 
alphameric 

5. Hore than one function can he selected 
for cne associated argument. 



The several functiens must cccupy 
contiguous groups of columns which are 
jointly defined as one field in the 
function table; i.e., the length of a 
field is defined as the aggregate of 
the number of columns for the several 
function fields. 



After a ICKUP operation, the several 
functiens are separated into different 
fields by MOVE and MCVEI operations. 
(See Figure 48C and Program min g Tips, 
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Egual match can be 
dited by creating 
entries in decreas 
cy of occurrence o 
ment: the araumen 
often should be th 
etc. (Of course, an 
be associated with 
table must be crga 



earched seguentially 
, leck-up for an 

significantly expe- 
the table with 
ing order of freguen- 
f the search argu- 
t that occurs most 
e first table entry, 
y function table tc 

such an araument 
nized to correspond.) 



Creating Table-Input Cards 

Table-Input Format. A set of table-input 
cards may te devoted to 

1. Entries for a single table, or 

2. Alternating entries for two tables. 

Each set of cards representing a single 
table, or alternating entries for two 
tables, must be loaded together (and in the 
proper seguence, if seguence is relevant) 
at prcgram-generaticn time. The sets of 
cards for different tables must be grouped, 
for leading, in the same order in which the 
tables are described in the File Extension 
Specifications. 

While it is common, when entries for two 
tables alternate in each card, that they 
represent the related arguments and func- 
tions for two associated tables, this need 
not be the case. When the tables are 
loaded, the program stores all entries for 
one table in one contiguous area, and those 
for another table in another area- 
irrespective of whether the two tables are 
read as alternating entries in one set of 
cards or from two different sets of cards. 
The association o^ two tables by alternat- 
ing entries in one set of cards has no 
bearing on their serving subsecuently as 
argument or function tables: any table 
that has been loaded can be stipulated tc 
serve as argument table (by entry of its 
name in Factor 2) or as function table (by 
entry of its name in Result Field) in any 
ICKUP operation. 
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ENTRY 
SEQUENCE 
A-B, A-B 



TABLE - 
ENTRY 
SEQUENCE 
B-A, B-A 



Separate Cards 
for Separate 
Tables 



Alternating- 
Tables Entries 
(Tables A and B) 



A and B represent 
table names 
TABxxx and 
TAByyy 



Fiqure 46. Two Methods of Creatinq Table-Entry Cards 



Benefits of alternating entries fcr two 
tatles in cne set cf table-input cards may 
lie in: 

1. Keypunching cr reproducing convenience, 
if the data for the twc tables was 

. gxauped in the source^d.ocjjejisi or 

2. Assurance that, if the associated 
entries are to serve as argument and 
function, respectively, the related 
data cannot get cut cf phase with each 
other if the cards should cet cut cf 
order. 

Figure 46 shows examples cf different 
techniques fcr entering twc tables. 

Eule s for Creating Table-Input Cards 

1. A table may have entries defined as 
alphameric cr as numeric; but all 
entries for one table are defined (in 
the file extension specifications) as 
one or the other. (Of course, a field 
defined as alphameric may contain num- 
eric data.) 

Fields defined as numeric are, as 
always, limited to 15 columns each. 

Fields defined as alphameric are 
limited tc 80 columns each (see item 6, 
below) . 



2. Data-entries must begin in column 1 c f 
each table-input card (note Fiqure 46). 

3. All cards (except the last) of a table- 
input deck must contain the same number 
of table entries. (The last card may 
contain less entries.) It is, however, 
not required — alt h cue h usualTy dene-- " 
that these represent the maximum number 
of complete entries that can fit in a 
card . 

4. All entry fields in a table-input card 
must be contiguous: interv en ing blank 
spaces (that are net part cf the 
defined field lenqth) are not permitted 
(note Figure 46) . 

5. All entries for one table must be the 
same length: i.e., the field length 
fcr one table must not vary. (Of 
course, with the alternating- tab le for- 
mat, the fields for the two tables may 
be of different lengths.) Note Fiaure 
46. 

6. Entries must net be split between two 
cards. Sufficient columns must be left 
blank at the riqht (hiqh-cclumn-number) 
end cf each card--if necessary— to com- 
plete an entry in a sinqle card (note 
Figure 46, Alternating-Table Entries). 

(This precludes alp^aireric table 
entries in excess of SC-column lenqth.) 
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In alternating-tatle format, the 
entries for the t*c tatles also must 
not be split between two cards. 

7. In alternating-table format, each card 
roust tegin viith an entry for the same 
table as every other card in the set. 

8. Each tatle may be ascending, descend- 
ing, or in nc particular seguence. In 
alternating-table format, the two 
tables need not be in the same 
sequence. 

9. Any of the 256 EECDIC characters are 
allowed in alphameric fields. Thus, 
blanks are permitted as contents of 
alphameric table-entry fields. 

Blanks within numeric table-entry 
fields are converted tc zeros (as the 
program packs the field) ; however, a 
blank in the low-order position will 
yield an invalid sign (hexadecimal zone 
4; i.e., EECEIC-table row labelled 4) — 
this will cause an abortive program 
stop if that field is used in IOKUF or 
arithmetic operations (including numer- 
ic ccirpare) . 



10. Packed format cannot he specified for 
table- input data. 



11. The table-input cards for each table 
must contain the exact number of 
entries specified in the file extension 
specifications. 

Note: Blank cards (or fields) may be 
appended (or interspersed) to satisfy a 
larger number of entries specified in 
the file extension specifications (but 
note item 3, above) . The user must 
then understand the possible effect of 
blank or zero-value entries on a LCKUP 
operation with Resulting Indicators 
assigned to High or low. 

12. Use of the alternating-table format 
reguires that both tables in the single 
table-input card deck have the same 
number of entries. (If one table con- 
tains more entries than the other, the 
eguivalent of the necessary number of 
additional entries for the shorter 
table can be achieved by leaving the 
corresponding columns blank, so that 
the length of entries remains uniform.) 
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IIiI_EXTOSICN_SPECTITCAlICNS_JCETICJAIX 



GEWEJAL_INFOBHATTON 

Each tatle tc be used with the FFG program 
(see Table Lcok-Up Operaticns) must be 
defined in file extension specifications 
(see Figure 47) . 

Each table that occupies a separate set 
o* input cards is described in the left 
portion (cols. 27-45) of a single file 
extension specifications line. 

When two tables are recorded in alter- 
nating fcrmat in one set cf cards, the 
table whose entry appears first (leftmost) 
in the table-input cards is defined at the 
left (cols. 27-45) , and the tatle whcse 
entry appears second in the table-input 
cards is defined at the right (eels. 46- 
57) . This has no bearing en which, if 



either, of the two alternating-entry tables 
is tc serve as an argument or a function 
table. 



Columns 7-26, 43, and 55 are not appli- 
cable tc this procram. 



If several tables in separate card decks 
are involved, the decks must be leaded in 
the same order in which their names appear 
in the file extension specifications: the 
cards for the table defined in the first 
line must be loaded ahead of those for the 
table defined in the second line, etc. 
This is the only means the proaram has of 
associatinq a table with a specific table 
name . 
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SPECIFICATION S FO R SINGL E- TABLE TICKS, AMD 

IOB_IIBST_TAELES_OF_ALTEBMflTING;TAEtES 

PICKS_JCCLS^_27-451 

Table Nam e — Cols. 27-32 

The table name must be four, five, or six 
characters long, starting in ccl. 27. The 
first three characters must be the letters 
TAB; the additional one, two, or three cha- 
racters iray te alphabetic cr numeric (but 
not special characters or embedded blanks) . 
Symbolically represented, the table name 
format must be TABx(x) (x) . 

If the table name is to be identified in 
an RLABL line (see RLAEI , in Calculation 
Specificat ions) for use in an external sub- 
routine (see EXIT, in Calculaticn_Specif i- 
caticns) , it must be exactly four charac- 
ters long — format TABx. 

If data for two tables is alternated in 
a single set of table-input cards, the 
entry here (cols. 27-32) names the table 
whose data occupies the first (leftmost) 
field in the table cards. 

Number of Table Entries per Record — Ccls. 
J3z35 

The number of table entries per table-input 
card is recorded in ccls. 33-35, right- 
justified. (The last card may contain 
fewer entries.) Recording of leading zeros 
is optional. 

If data for two tables is alternated in 
a single set of table- input cards, the two 
contiguous entries--each for one of the two 
tables — is counted here (ccls. 33-35) as a 
single entry. For instance, the specifica- 
tion here (in ccls. 33-35) for the 
alternating-tables (A-E cr E-A) example in 
Figure 46 would be 6 (not 12) . 

Number of Table Entr ies per Table--Ccls. 
36zJ9 

The total number of entries in the table is 
recorded in cols. 36-39, right- justified . 
Recording of leading zeros is optional. 

This value must correspond exactly to 
the number of entries in the table to be 
loaded . 

If it is desired to allcw for ultimate 
expansion of (or insertions in) the table, 
the value here can be inflated — provided an 
appropriate number of blank cards, cr 
fields, representing the proper number of 
entry fields, is appended to (or inter- 
spersed in) the table-input deck (but rote 
Rules fo r Creating Table-Input Cards , item 
9, under Table Lcok-up in the Calculation 
Specifications, above) . If data is sutse- 
guently to be substituted for the blank 



entries in the table-input deck, the pro- 
gram must be regenerated. Alternatively, 
the excess area (ccntaininq blanks or 
zeros) reserved for the table by the 
program--by virtue of the blank table-input 
cards or fields and the inflated table size 
specif ied-- may have table data placed in it 
by an appropriate external subroutine. 

Note: Since the number of entries for the 
two tables in alternatinc-table format must 
be egual, the specification in cols. 36-39 
is the same, regardless of which of the two 
tables is considered — the number represents 
the count of entries for one table. 

Length of Table Entry — Ccls. 4 0-42 

The number of columns for one entry for one 
table is recorded in cols. 40-42, right- 
justified. Recording of leading zeros is 
optional. 

Tables defined as numeric (see col. 44) 
are limited to a maximum of 15 columns per 
entry. Alphameric table entries may be up 
to 80 columns long. 

If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (cols. 4C-42) applies to 
the table whose entry appears first (left- 
most) in the table-input cards. For 
instance: for the table exemplified by the 
third sample card in Figure 46, the speci- 
fication in col. 42 would be 5; for the 
fourth sample card, it would be 8. 

Each entry in tables used as argument 
tables must have the same total length 
(including any decimal places) as the 
search argument (see Look-Up Operations, 
above) . 

Packed-- Co 1_._ 4 3 

Leave blank. This prooram does not permit 
the designating of table-input format as 
packed. 

Decimal_Ppsitions2rCol_ i _4 4 

Format definition for data in the first (cr 
only) table of table-input deck: 

i - alphameric 
or N = numeric, with no positions to the 
right of the decimal point 
1-9 = numeric; 1-S positions, respec- 
tively, to the right of the deci- 
mal point. 

Entries in tables used as argument 
tables must be defined with the same data 
format (alphameric cr numeric) as the 
search argument; but the defined position 
for the decimal point may differ. No deci- 
mal alignment is performed during the LOKUP 



File Extension Specif icaticns (Optional) 161 



operation — the entire search-arqument field 
is compared with an entire argument-table 
field. Therefore, if the table fields are 
not used in compare (CCMP) cr arithmetic 
operations, any of the cedes N, 0-9 (within 
field-size limit) may be assigned tc a nu- 
meric field, regardless of the actual 
number of decimal places. 

Comparing between argument table and 
search argument is algebraic for tables 
defined as numeric (i.e., negative values 
are smaller than zerc cr than positive 
values) ; comparing is "logical" (according 
to the EECDIC sequence) for alphameric 
tables. 

If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (col. 44) applies to the 
table whose entry appears first (leftmost) 
in the table-input cards. 

Sequence — Ccl. 45 

If the table will be used as an argument 
table, and entries are tc be matched as 
"high" or "lew" against the search argument 
(Resulting Indicators assiqned tc High cr 
Low in the calculation specifications) , the 
table must be defined as being in either 
ascending of descending sequence: 

A = ascending seguence 
D = descending sequence 

No check is made by the program that the 
table conforms tc the specified sequence. 



If the table either will net be used as 

ajl...arjgument.....table # ._..ox._it.£ only 

be matched against the search argument for 
an "equal" condition (no Resulting Indica- 
tor assiqned tc Hiqh or Lew in the calcula- 
tion specifications) , no entry is required 
in Sequence (col. 45) --an entry will be 
ignored. 



If data for two tables is alternated in 
a single set of table-input cards, the 
specification here (col. 45) applies to the 
table whose entry appears first (leftmost) 
in the table-input cards. 



SPECIFICATIONS FOR SECCNE TAEIES CI 
AITEENiT3MG^TAEI.ES_pECKS_JCCtS i _i!6^5 7l 

All fields in this right-hand portion of 
the file extension specifications have the 
identical significance as the like-titled 
fields in the left-hand portion (cols. 27- 
45) --but they apply only tc the second 
table (i.e., the table whose entry appears 
second) in table-input cards with 
alternat inq-tables entries. 



This section is left blank for a table- 
input deck that contains entries for only a 
single table. 

Table Name — Cols . 46-51 

The name assiqned to the second table in 
one table-input deck. 

L6nS±h__cf_Table_Entry--Cgls i _52-54 

The number of columns in an entry for the 
second table in one table-input deck. 

Pac ked — C cl. 55 

Leave blank. 

Decimal Positicns--Ccl . 56 

Format definition for data in the second 
table of one table-input deck. 

"B = alphameric 
or N = numeric, with no positions to the 
riqht of the decimal point. 
1-9 = numeric; 1-9 positions, respec- 
tively, to the riqht of the deci- 
mal point. 

Sequence — Ccl. 57 

Sequence of the secend table in an 
alternatinq-table input deck. 

Note : There are no specifications, for the 
second table in a single table-input deck, 
for "Number of Table Entries per Record" or 
"Number of Table Entries per Table": spe- 
cifications in cols. 33-35 and 36-39 cover 
both tables in. pjje.__table-.inp.ut. . deck ._ 



COMMENTS--CCLS__58__7 4 

The user may enter here any data he wishes 
to have printed out, next to the specifica- 
tions in the line, at program-generation 
time. Apart from this, the entries are 
iqnored by the proqram. 

Figures 48A, B, and C illustrate file 
extension, table lcok-up, and related cal- 
culation specifications. In order to 
demonstrate a variety of possibilities, 
some of the examples are rather artificial 
from an applications viewpoint. 



ILLUSTRATION AND EXPLANATION OF US E OF 
TABLES — FIGURES 48fl, E, AKD C 

Calculation Sp ec ifications — Figure 48C 

All operations shown are performed at 
detail time: Control level (cols. 7-8) is 
blank. 
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Form X24-6599-0 
Printed in U. S. A. 



, Entry 1 & 9 



TABPCT TABAMT 



9999 

12 3 4 



99999 

5 6 7 8 9 



TABPCT TABAMT 



9999 



9 99 99 

14 IS IS 17 IS 



9999 

19 20 21 22 



99999 

23 24 25 26 27 



9999 

28 29 30 31 



99999 

32 33 34 35 36 



9999 

37 38 39 40 



99999 

41 42 43 44 45 



9999 

46 47 48 49 



99 999 

50 51 52 53 54 



9999 

55 56 57 58 



99999 

59 60 61 62 63 



9999 

64 65 66 67 



9999999999999 

68 69 70 71 72P3 74 75 76 77 78 79 80 



99 



99 



99 



99 



99 



99 



9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 10 



Enlry 1 , 4, 7, etc. 



Entry 2, 5, 8, etc. 



999999999999999999 

3 4 5 6 7 8 9 10 11 12 13 14 15 IE 17 18 



999999 

19 20 21 22 23 24 



999999999999999999 

25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 



999999 

43 44 45 46 47 48 



Entry 3, 6, 9, 12, etc. 



999999999999999999 

49 50 51 52 S3 54 55 56 57 58 59 60 61 62 63 64 65 66 



999999 

67 68 69 70 71 72 



99999999 

73 74 75 76 77 76 79 10 



Figure 4&A. Table I cok-Tjp--Tahle- Input Card Format 
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If an arqument-table entry (say, the nth 
entry in this table) satisfies the search 
criteria specified (in Fesultino Trdica- 
tors) , that TAEPCT value is stored in the 
hold area for this table. The entry in the 
correspondina nth position of the table 
TABBCL (say, bonus class) --the function 
table, by virtue cf its specification in 



Result Field--is also selected, and placed 
in the hold area for that table. If the 
search did not result in a "hit", neither 
hold area is disturbed. 

TABBCL is defined (in the file extension 
specifications) as alphameric, each entry 2 
columns lcng, and nc seguence is specified 
for the table. (The program does not veri- 
fy the seguence of the table even if 
Seguence is specified in the File Extension 
Specifications.) 

line 02. The applicable bonus class code 
selected is tc be used in output-format 
specifications; it must, therefore, be pre- 
served before the TAEBCL table is again 
employed in a LO*"UP operation. 

The MCVE of TABECI to ECflCLS transfers 
the bonus class code selected in line 01 
from the TAEBCL hold area to a new field. 
TAEBCL is defined (in the file extension 
specifications) as 2 columns long per 
entry, and alphameric. ECNCLS is therefore 
similarly defined (it could have been 
defined differently if there were a reason 
therefor) . 

The specification is executed only if 
the preceding operation yielded a "hit" 
(indicator 20 en) . 

Line_C3. The specification cf TAEECL in 
Factor 1 causes the contents of the TAEBCL 
hold area--the previously-selected (line 
01) entry from the function table TAEECL — 
to become the data for Factor 1. Since 
this is a LCKUP operation, Factor 1 con- 
tains the search argument; i.e., the last- 
selected TABBCL function-table entry now 
becomes a search argument. 
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Figure 4 8E . Table Look-Up — Table Definitions 
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Figure 4 £C . Table Lock-Up — Calculation Specifications 



TABBCT is also specified in Factor 2, 
and therefore is the argument table in this 
operation. It is needed to ascertain the 
count of entries (n) to the point of match 
between the search argument and the per- 
tinent arguirent- table entrj. This permits 
the program to select the nth entry frcm 
the function table (TAEAMT — say, aircunt of 
perf crmance bonus) , and to place it in the 
hold area for TAEAPT. 



The comparison is logical (rather than 
algebraic) , lecause TABECL is defined as 
alphameric . 

An exact match is required between 
search argument and argument table; there- 
fore, a Resulting Indicatcr (21) is 
assigned enly to Equal. (An exact match is 
known to exist, because the search argument 
was originally derived frcm the arcurnent 
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tatle.) TAEECI is net defined (in the file 
extensicr. specif icatiens) as being in 
sequence, because this makes nc difference 
in a search confined tc an "egual" match: 
the prcgrarr vill search through the entire 
argument table until it finds an egual 
value (if it exists) . Since alphameric 
comparison is logical, the identical EECBIC 
character must be located (e.g., 5 # + 5, 

* c f * 6) . 

TABAM1 is defined (in the file extension 
specifications) as numeric, each entry 5 
columns long, including 2 decimal places. 

The specifications in this line are 
executed crly if the first ICKUP in this 
program cycle yielded a "hit"--ctherwise a 
tonus class could still be in the TAEECL 
hold area frcm an earlier prcgrai cycle. 



difference is calculated 
nus percent selected in line 
ble TAEPCT (which steps in 
ps) and placed in its hold 
precise performance percen- 
ference (>C) is stored as 

columns leng, rounded tc no 
— the original values ccn- 
imal place. The operation is 

if the original ICKUP 
nent data (indicator 20 en). 
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This illustrates that there may be occa- 
sions when the entry selected frcm the 
argument table in a LOKUP operation is of 
interest, because it differs from the 
search argument when a Resulting Indicator 
is specified for High or lew only, and 
because it may differ when Eigh and Equal 
or Lew ard Eaual are designated. 

lin e 5. The amount cf ler.us pay selected 
frcm table TABAKT in line C3, and placed in 
its hold area, is added tc tasic gross pay 
(GESPAY) tc provide final cress pay 
(FINGRS) . TAEAMT is 5 columns long, 
includina 2 decimal places and, therefore, 
fits in TINGES (6 columns leng, including 2 
decimal places) . 

The operation is enly performed if the 
first LCKUP operation yielded a "hit" 
(indicatcr 2C en). Indicator 21 is not 
needed, because the second LGKUP must yield 
a "hit". 

Iine_Cj5 illustrates a numeric literal as 
search argument. Table TAEL — the argument 
tatle--must be defined with the same entry 
length (6) as the search argument and the 
same forirat (numeric) --see line 03 in file 
extension specifications. Table TABI is 
defined (in the file extensicn specifica- 
tions) as descending. 

Comparison is algebraic: the first- 
encountered value in TABL that is algebra- 



ically smaller than 
and larger in absol 
criterion. (Decima 
LCKUP, and its posi 
column in field len 
is satisfied, indie 
TABL entry that sat 
stored in the TABL 
corresponding (nth) 
TAB1#2 is stored in 
argument-table entr 
condition (Tow), in 
and the two hold ar 



-125650, i.e., negative 
ute value, satisfies the 
1 point is ignored in 
tion is not counted as a 
gth.) If the criterion 
ator 2 5 turns on; the 
isfied the condition is 
hold area, and the 
entry from table 
its held area. If no 
y meets the specified 
dicatcr 25 turns off, 
eas are not disturbed. 



TAE1#2 is defined as in descending 
sequence because of another operation (line 
09) — this is irrelevant here. 

The operations in this line are per- 
formed only if no successful match was 
achieved in the first LOKUP operation (line 
01) ; i.e., if indicator 20 is off. 

The name TAB1#2 illustrates that the 
characters after TAE may be numeric (1, 2) 
and/or alphabetic (# is an alphabetic 
character— see Definiticn cf Terms ) . The 
ether table names chesen all happen to be 
completely alphabetic. 

A numeric literal is used here as a 
search argument. Alphameric literals may 
also be used; the argument table must then 
be defined as alphameric, and cemparison is 
logical rather than algebraic. 

Lines 07 and 08. These specifications were 
included tc pcint out that a function table 
could include more than one function. 

Assume that each entry in table TAB1#2 
really contains adjacent data fcr two 
f uncticns--the left-hand function- 1 field 
being 8 columns long and the right-hand 
functicn-2 field being 10 eclumns lonq, 
together terming the 18-column entries 
defined (in the file extension specifica- 
tions) fcr TAE1#2. The sinale ICKUP opera- 
tion in line 06 then supplies both func- 
tions associated with the selected 
argument-table entry. 

By MOVE and MOVE! operations to fields 
of appropriate sizes the dual-function data 
in the TAB1#2 hold area can be split, and 
made available separately. 

The operations are cenditicned en the 
LCKUP in line 06 having teen performed 
(indicatcr 20 off) and data havina been 
selected from table TAB1#2 (indicatcr 25 
on) . 

Li££_09 demonstrates the possibility of 
performing a ICKUP operation solely to 
ascertain the relationship of data in an 
argument table to the search arqument, 
without use of the selected data and 
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without selection cf data frcm a function 
tatle. 

The system is to halt (after completion 
cf detail-time output) , and/or calculation 
cr output operations are tc te modified, if 
TAE1#2 (the argument table) contains an 
entry loaically equal to cr higher in 
EECDIC than the contents cf the field 
CRITRN. Eifferent Resulting Indicators (H1 
and H2) were assigned to the two error con- 
ditions teir.g checked, tc shew that dif- 
ferent indicators may be assigned to Pigh 
and Equal cr Low and Equal. (That the same 
indicator may be assigned was shewn in line 
01.) 

The same table (TAB1#2) is used as an 
argument table here and as a function table 
in line C6. 

TAE1#2 is defined (in t?e file extension 
specifications) as alphameric, and each 
entry as 18 positions long. CFITRN must 
therefore be defined identically scmewhere 
(in input specifications cr elsewhere in 
the calculation specifications). TAE1#2 is 
also assigned a sequence (descending) so 
that a comparison can be made fcr High cr 
Low. 

tine__1_0 entries make data selected (in a 
LOKUP operation) frcm table TAEL (as placed 
in its held area) available tc any external 
subroutines, by reference tc the field name 
TAEL. Note that the table name cannct be 
longer than 4 columns for this purpose. 

Lines 01, 03, and C6 also shew that arou- 
ment and function tables need not have the 



same field lengths, formats, numbers of 
decimal places, or sequence. 

Eile_Extensicn_ Specif icatiens (Figure 49E) 

and_Card_For mats__(Figure_4S A]_ 

The tables TAEPCT and TABAMT are contained 
in one set of cards, in alternating format. 
They must therefore be defined in one line 
of the file extension specifications. 
TAEPCT appears first in each table-input 
card; therefore, it must be described in 
the left portion of the file-description 
line. The same applies tc TAB1#2 and TAEL. 

The table TABECI is alone in its set of 
table-input cards; therefore, no entry is 
made in the right portion cf line 02 in the 
file extension specifications. 

Uote, in the calculation specifications, 
that the lcadinq cf twe tables from one set 
cf table-input cards has no bearinq on 
whether a table is used as argument cr 
function table, cr vihich tables are related 
to each other as araument and function 
tables . 

Note also that, when two tables are 
alternated in one card, cne entry for each 
table is jointly considered a single entry 
for purposes of "Number cf Table Entries 
per Fecord" (cols. 33-55) . A comparison cf 
the entries in eels. 33-35 (of the file 
extension specifications) with the card 
layout form will clarify this. 

In line 3, the entry N in ccl. 5 6 - - 1 c 
define TAEL as numeric wit v no decimal 
places--co'jld equally well have been 0. 
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GEN ERAL INFORMATION 

The output-format specifications (see 
Figure 49) serve to specify the kinds of 
output files to be produced and the loca- 
tion of the specific data fields in output 
cards and reports, and tc define the condi- 
tions under which the particular output is 
to take place. 



The specificaticns for cutput can te 
divided into two categories: 



1. File identification and control — eels. 
7-31: 
Identification of output files (output 

media) — File name; 
Stacker selecticn of cards; 
Forms contrcl on the printer — Space, 

Skip; 
Segment of the program cycle during 

which the output is tc occur (detail 

time, total time, or overflow time) ; 
Conditions under which the cutput file 

is to be created--Output Indicators. 



2. Field description and control — eels. 
23-70: 
Identification of fields whose ccntents 

are to be output — Field Name; 
Location of data fields en the repcrt 

and/or in output cards — End Position 

in Output Record; 



Format in which 
be printed or 
Zero Suppress 
Field; 

Definition of co 

Clearing of data 
operations — E 

Conditions under 
field is to b 
Indicators; 

For cutput to ca 
described in 
tion line is 
document-prin 
Cutput Record 



each output field is to 

punched- -including 
, Edit Word, Packed 

nstants; 

fields for subseguent 
lank-After ; 

which a n articular 
e output — Output 

rds: whether the data 
a particular specifica- 
to be punched or 
ted — End Position in 



The Sterling Sign Position (cols. 71-74) 
applies to Sterling currency fields (Brit- 
ish monetary system) only. It is not 
covered in this manual. See IBM System/360 
Mo del 20, Sterling Currency Processing Rou- 
tines , Form C26-3605. 

A File Identification occupies a sepa- 
rate specification line (or — if there are 
AND or OR lines — a group of lines) followed 
by all Field-Description lines for that 
file cutput — one line per output field or 
constant . 

Note: When stacker selectina input-file 
cards, based on file matching and/or calcu- 
lation results, the file must be defined as 
combined. Therefore, a File Identification 
entry is made in the Output-Format specifi- 
cations, but it is not followed by a Field- 
Description entry. 
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Figure 49. The Output-Format Specifications Form 



Output-Format Specifications (Optional) 167 



Output Indicators in a File-Identifica- 
tion line condition the occurrence of cut- 
put for the entire file (i.e., the report 
or the card) ; in a Field-Description line, 
they only condition output of the particu- 
lar field, and are relevant only when the 
file output is executed. 



1. Overflew output occurs at overflow 
time, following total-time output. 

2. The lower and upper feeds of the Dual- 
Feed Carriage special feature are con- 
sidered two output files; yet, under 
certain conditions, output to both 
files is concurrent. 



Only output and combined files are 
entered in the Output-Format Specifica- 
tions. Files defined in the File Descrip- 
tion Specifications as input files (I in 
col. 15) must not be entered in the Output- 
Format Specifications. The Printer is con- 
sidered an output file — cr, two output 
files, when utilizino the upper and lower 
feeds of the Dual-Feed Carriage special 
feature. 

No check is made automatically by the 
program cr the hardware that an output card 
is blank in the columns into which data is 
to be punched. Such a test can be pro- 
grammed by designating the file a combined 
file, and assigning Field Indicators tc the 
relevant fields, defined as alphameric, in 
the input specifications; if all fields to 
be punched are contiguous, they could be 
defined in the input specifications as one 
long single field, for purposes of testing 
them for "blank". 



Sequence cf Specifications 

Specifications for all detail-time output 
must precede specifications for all total- 
time output. 



Users accustomed to Unit Eecord applica- 
tions sTfcuTd realize that card cycles and 
total cycles as such do net exist in EFG, 
nor does higher-level-total output neces- 
sarily occur later than lower- level: the 
program steps through total time and detail 
time in each complete program cycle, thus 
offering greater flexibility. Any RPG 
operation may be performed in either cycle 
segment—including the printing or punching 
of totals during detail-time output. 

However, detail time and total time 
occur at different points in the cycle. 
The conditions reflected by various indica- 
tors may differ at these different points 
in the cycle, and the data available for 
output may represent different cards and/or 
different stages of calculation (depending 
on the user's program). 

Detailed information is presented in the 
earlier section titled Program Logic Fl ow , 
and in Figure 6: BPG Program Logic. 



3. Data for card printing is transferred 
to the output data-stcraae area after 
the transfer of data for punching of 
the same card. This need concern the 
user only when Blank-After is specified 
for such a field. 

These divergences will be further clari- 
fied later. 

Each File-Identification line (or group 
of lines, when there are AND or OR lines), 
together with its subordinated Field- 
Description line (s) , if any, represents one 
file output operation. (Punching and 
document-printing in the same card are 
parts of a single file-output operation.) 

If there are several separate File- 
Identification (and groups of Field- 
Description) lines for the same output file 
at different points in the output-format 
specifications — and the status of any Out- 
put Indicators assigned calls for perform- 
ance of several of these output-file spec- 
ifications in one program cycle — the same 
output file is acted upon several times in 
the same program cycle. This has the fol- 
lowing effect: 

1 . If the output file is the printer — 
printing occurs se vera 1 t i me s . If 
spacing and skippinq between lines is 
suppressed, the successive printing is 
en the same line of the form. 

If spacing or skippinq between lines 
is specified, the printing is en sepa- 
rate lines of the form. This is the 
normal method to accomplish, for 
example: 

a. Printing of group totals below 
detail item lines. (Usually, the 
detail items are printed at detail 
time and the totals at total time, 
but this need not be so.) 

b. Printing totals of different levels 
en different lines (for instance, 
the L2-level total under the L1 
total) . 



Within the grouping of detail time and 
total time, the seguence of output opera- 
tions corresponds to the seguence cf the 
output-format specifications lines. There 
are three exceptions: 



Note: A print line conditioned by 
12 as Output Indicator is not 
printed later than (or under) a 
print line conditioned by L1, 
unless the Tile-Identification line 
conditioned by L2 appears later in 
the output-format specifications 
than the 1.1 File-Identification 
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line: within cne cycle segment 
(detail time cr total time) , the 
sequence cf output operations 
adheres to the specif icaticns-line 
sequence. 

There is no such event--as with 
Unit Record accounting machines — as 
major-total output automatically 
preceded by intermediate, preceded 
ty minor. By proper assignment of 
Ccntrcl-Le vel indicators (cols. 59- 
6C, Input Specifications) , indica- 
tor L3 can be made to represent the 
equivalent of a major contrcl 
break, L2 an intermediate cne, and 

11 a minor one. However, the pro- 
gram does not recognize the dif- 
ference between L-indicators cf 
different levels, cr between L- 
indicators and other indicators, as 
related to a particular class cf 
tctal: any indicators may be 
assigned in Output Indicators 
(cols. 23-31) tc condition, the 

execution of an cutput- 

specif ications line. Therefore, 

12 represents the equivalent of a 
tctal class higher than L1, and the 
L2 totals are to be printed under- 
neath the L1 totals, the File- 
Identification and Field- 
Descripticn Specifications condi- 
tioned by the L2 indicator must 
appear later than these conditioned 
by L1 (if both apply to the same 
cycle segment) . 



if 



c. Printing of several lines frcm one 
input card; for instance, name and 
address en three lines frcm a 
single input card. 

d. Printing f crms-overf low identifica- 
tion. This occurs at overflow 
time. If the same output file (the 
printer) is also specified (say, 
fcr group indication) by another 
File-Identification line — which is 
the normal situation — care must be 
taken not to unintentionally print 
some data twice. (Ihis situation 
is discussed further, belcw. ) 

2. If the output file consists of cards 
(output cr combined file) --successive 
cards are punched, document-printed 
and/or stacker selected. (See Multiple- 
Time Cut put to Cards_ during. One Program 
Cycle, under Program Logic Fl ow .) 

Therefore, all cutput operations — 
punching, card-printing, stacker- 
selection--pertinent tc one card must 
be included in a single File- 
Identification line (and its related 
Field-Descripticn line (s) , if any) . 

If multiple output is required during 
the same cycle segment tc each cf several 



files, faster throughput may be obtained, 
through maximization of overlap, by alter- 
nating the output specifications for the 
files. Assume for instance: 



Cn a Level-2 (12) control break, Level-1 
totals are tc be printed cn one line 
cn the printer, followed by Level-2 
totals. It is also desired to summary- 
punch an output-file card with the 
Level-1 totals, and another with the 
Level-2 totals. These operations are 
all tc be performed in the same cycle 
segment (total-time output, or detail- 
time output, as desired) . 
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E.g.: Specifications f or output of L1 

totals tc printer; then 
Specifications -For output of T. 1 

totals tc card file; then 
Specifications for output of L2 

totals tc printer; then 
Specifications for output of L2 

totals tc card file. 

Note: Even if no card punching is 
reguired at the L2-level, it is still 
advantageous to interpose the L-1-level 
card-punch specifications between the 
L1- and L2-level printer specifica- 
tions. 

Figure 4 shows which operations can be 
time-shared. 



Specifyin g Ou tput Units 

Each file name is associated with a parti- 
cular input, output, or input/output unit 
(or device) by the entries in the File 
Description Specifications. Designation of 
a file name in the cutput specifications 
therefore suffices to determine the file to 
be operated upon. 



Organizing for O utp ut-Format Specifications 

Writing the output-format specifications 
becomes a simple task if the user has first 
analyzed his report and output-card 
requirements and laid cut 

1. The printed report (if relevant) on a 
Printer Spacinq Chart (IBM Form 
X24-3115 — see Fioure 1), and 
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2. The format of any output-file cards on 
cne cf the many card layout forms 
available (e.g., see Figure 48 A). 



FILE IDENTIFICATION AND CONTROL — CCIS. 7-31 

One File-Identification line (cr group of 
lines, when there are AND or OR lines) is 
to be specified per output operation per 
output file. Each such File-Identification 
line (cr group of lines) is followed ty all 
Field-Description lines pertinent to that 
output operation. 

Note: When stacker-selecting input-file 
cards, based en file matching and/or calcu- 
lation results, the file must te defined as 
combined. Therefore, a File-Tdentif icaticn 
entry is made in the Output-Format specifi- 
cations, but it is not followed by a Field 
Description entry. 

File Name — Cols. 7-14 

Each output file is given a separate name 
by the programmer--and the same narce must 
he used for that file in the File Descrip- 
tion Specifications, to associate the file 
name with a particular I/O device. The 
same name must not be assigned to mere than 
one file. However, when a card file is 
used both for input and output, it is 
termed a "combined" file, and the same file 
name is entered both in the Input and the 
Output-Format Specifications. A file name 
must begin in col. 7 with cne cf the 29 
alphabetic characters, and may continue 
with alphabetic cr numeric characters (but 
not special characters or embedded blanks) ; 
it may be cne to eight characters long. 
fFurth-er details on files and file names 
appear under Input and Output Files, in 
Introduction — RPG Functions and C har acter- 
istics; Definition of Terms; and File 
Descriptio n Sp ecifications . ) 

The file name must be recorded in this 
field (eels. 7-14) in the File-Identifica- 
tion line for an output (or combined) file 
the first time that file appears in the 
Output-Format Specifications. The same 
file may be specified several times — for 
repeated output to the same file in the 
same program cycle (see Seguence cf Speci- 
fications, above) . The file name need then 
not te repeated, unless specifications for 
another file intervene: if the file-name 
is blank in a File-Identification line, the 
program applies the nearest preceding file 
name — this is true even if the entries 
apply to different segments of the proaram 
cycle (Type E versus Type T in ccl. 15). 
No file name may appear in an AND cr 05 
line . 

Type— Col. 1 5 

The mnemonic cede letter entered here des- 
ignates during which segment cf the prcqram 



cycle this output is to take place. (See 
IU?G_i!i;°2ram_Loc[ic x Fiqure 6 and Pr ogram 
Logic Flow) . No "Type" entry is made in an 
OR line: the same type code is assumed to 
apply. 

D = Detail-time output 

N ot e : Code H (Heading) is synonymous 
with code D. The user may find it con- 
venient to assign E to detail-time 
printed output he considers heading 
lines. It is important to realize, 
however, that there is no separate 
Heading time in the program cycle — code 
P is never needed, and its use miqht 
lead to confusion. 

T = Total-time output 

All detail-time output (Type D) must be 
specified ahead cf all total-time output 
(Type T) . 



Reference to RPG Program Togic (Fiqure 
6) makes it apparent that detail-time out- 
put will most-commonly deal with data from 
and/or to individual detail cards — such as 
listing frcm detail cards, printinq the 
results of detail calculations, or punchina 
into detail cards; whereas total-time out- 
put lends itself best to printinq and/or 
punching of totals at the end of control 
groups, when data from the next card is not 
yet available. However, the use of detail- 
time and total-time outputs is by no means 
thus restricted — comprehension of the RPG 
procram cycle (with its attendant data 
flow, indicator relationships, and card 
movement) permits other arranqements . 



Note': Although 
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Figure 5F.) 
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Stacker Select-^-Col. 16 



Stacker Select applies only to card files. 
(If a Stacker-Select entry is made in the 
File-Identification specifications for a 
Printer output file, it is ignored.) 

If no Stacker-Select assiqnment is made 
for a card file in either the input or the 
output-format specifications, the cards 
enter the normal stacker for the particular 
card punch cr read-punch device. If the 
device contains more than a sinqle stacker, 
cards may be proqram-directed to a non- 
normal stacker by designation of the 
desired bLdcktiL in the input or output- 
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xormat specirications — siiDject to certain 
rules listed below. Figure 24 (Input Spec- 
ifications) itemizes the normal and addi- 
tional stackers for card input/output units 
with multiple stackers, and the associated 
stacker-select codes. For single-stacker 
I/O devices, Stacker Select should be left 
blank (however, any entry is simply ignored 
by the program) . 

• Not e 1 : When stacker 5 is designated, but 

• the I/O device referred to is the 2560 MFCM 
I Model A2, the card is directed to stacker 

I 4, 



Note 2: In the case of the IBH 2520 Card 
Punch or Read-Punch, cards with punch 
errors are automatically directed to stack- 
er 2 — the non-normal stacker — by the 
system. 



Rules for Stacker Selection 

Input-File cards can only be stacker- 
selected by an entry in the input 
specifications. 

Stacker selection of input-file cards, 
based on file matching and/or calculation 
results, is possible. In this case, how- 
ever, the file must be defined as combined 
and the file name entered in the Output- 
Format specifications. 

Note : It is also possible to perform 
stacker selection on input-file cards, 
based on file matching and/or calculation 
results, by means of the EXIT operation 
code and BAL subroutines (see Programming 
Tips , Appendix E) . 

O utput-file cards can only be stacker- 
selected by an entry in the output-format 
specifications. This is accomplished by 
entering the number of the desired stacker 
in col. 16 of the relevant File- 
Identification line. If cards are to enter 
the normal stacker for the I/O device that 
contains the file, col. 16 may either be 
left blank or coded with the number of the 
normal stacker (which is always 1, except 
for the secondary feed of the MFCM) . 



Combined- file cards can be 
selected by an entry in the in 
cations, but only when selecti 
based solely on card type. Th 
stacker-selected by an entry i 
format specifications to refle 
desired condition: card type, 
Record status, results of calc 
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format specifications, only th 
File-Identification specificat 
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SpeciLlUdtlOllb. 1 rifcj J_ O.L -LUWxiiq UliLtilld 

must be observed: 



1. The same card type must not have 

stacker-select instructions in both the 
input and output-format specifications. 



If any output operation (punching and/ 
or card-printing) is to be performed on 
cards of a type, any stacker selection 
to be designated for that type must be 
in the output specifications, 



Therefore, card 
stacker selection 
input specificatio 
output operations 
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For example, assume: 

a. File DETAIL contains three card 
types to which card-type Resulting 
Indicators 10, 11, and 12 were 
assigned in the input specifica- 
tions; and 

b. Type 11 has a stacker-select 
instruction in the input specifica- 
tions; then: 

Only types 10 and 12 may have out- 
put operations specified; the entry 
N11 in cols. 23-25 is the simplest 
way to accomplish this. 

If stacker selection is to be based on 
the status of any indicator except card 
type (such as MR, or one reflecting the 
results of calculations) , it must be 
designated in the output 
specifications . 

Stacker selection based on matching 
of files (matching records) reguires 
that the file be defined as a combined 
file. (But see Progra m ming Tips , 
Appendix E, for BAL subroutines to 
accomplish this with Input Files.) 

If no entry at all appears in the 
output-format specifications for a 
combined-file card, and no stacker 
selection is specified for that card in 
the input specifications either, the 
card enters the pertinent normal 
stacker. 

Note : See also further Stacker-Select 
information for combined files under 
I nput Spe cifi cations . 
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Stacker selecticn at total-output time 
(Type T in ccl. 15) causes selecticn cf the 
"next" card. At this time: 

a. Tata t r c m t ^ a. t new card ha s not yet 
been available for calculation, and 

b. The Matchincr-Reccrd indicator still 
reflects the status cf the previous 
card, and 

c. Field Indicators still represent 
the previous card; but 

d. The card-type Resulting Indicator 
fcr the new card is en — that for 
the old card is off, and 

e. If the eld card was the last cf a 
ccntrcl group, the pertinent L- 
indicators are already on. 

(See R PG Pro gram Logic, Figure 6.) 

A card's position as the last of a co n- 
trcl_cjrouj: can net be recognized by RPG as 
a criterion in time for stacker selection 
cf that card. (The PT.ACF card in the 
Punched-Card Utility Collate Program pro- 
vides for this; or, the RPG program may 
branch, by operation code EXIT, to a 
B. A.L. subroutine to accomplish this 
select ion--see Programming Tips, Appendix 
E.) 

Stacker Selection of matched cr 
unmatched cards in a file-matching applica- 
tion, based on the status of the MR indica- 
tor (see Cutput Indicators, below) , should 
be specified for detail-time output (Type D 
in col. 15). The MR indicator then 
"correctTy reflects the match status of ths 
card that would be selected. At total time 
for a new card, the MR indicator reflects 
the match status of the preceding card. 

Stacker selecticn for OR_lines (see Out- 
pu t Indicato rs , below) is independent of 
that for the basic File-Identification spec- 
ifications line. It behaves like stacker 
selecticn fcr any ether line: if ccl. 16 
is blank, the cards defined in the OR line 
enter the normal stacker; if a stacker 
number is specified, the cards enter that 
stacker. (But see item 3 under Stacker 
Se le ct -- C R_L in es , in In£ut_S_p_ecif icatiens. ) 



S£ace x ^ki£-zCols J! __!.7_and_J[8i_Cols J ,_J9-20 
and 21-22 

These fields are left blank in File-Identi- 
fication specifications fcr card files. 

The Space and Skip fields provide fcr 
printer forms- movement ccntrcl. They apply 
each time the particular printer-output 
File-Identification specifications are 
executed, even when: 



1. The particular printer cutput specifi- 
cations are repeated during the same 
program cycle--by a GCTC operation (see 
Ca lculation Specif icatiens) ; cr 

2. No data is actually printed, because 
the status of the particular Output 
Indicatcrs assigned in the individual 
Field-Description specifications lines 

(see below) prevent printing of all 
associated fields cr constants. 

If the printer is the IBM 2203, and the 
Dual-Feed Carriaae special feature is 
installed, forms control applies only to 
the forms carriage with which the particu- 
lar File Name is associated (through the 
Device Code in the file description 
specifications) . 

Separate specifications may be given for 
OR lines. However, if an OR line is blank 
in ail of these forms-control fields, the 
space and/or skip specifications from the 
nearest preceding File-Identification line 
(within the same file output entry) with 
such specifications are applied by the pro- 
gram also to that OR line. Tf there are 
also no specifications in these fields in 
any of the preceding File-Identification 
lines (main or OR lines) cf that file- 
output entry, the field is considered to be 
blank in the OR line too. 

Note that a zero (in contrast to blank) 
in any of the columns 17-22 in an OR line 
prevents application to the OR line of 
Space or Skip specifications from a preced- 
ing file-identification line. If at least 
one of the cols. 17-22 in an OR line con- 
tains a zero, and the remainder are zero or 
bTariKy no spacing or skipping takes place, 
before or after, when output is based on 
the OR line. 

There must be no Space or Skip entries 
in an AND line. 



Note: Relationships between Space and Skip 
specif icatiens are discussed at the end of 
this section. 

Space, Before — Col. 17 

The paper form in the printer is advanced 
0, 1, 2, or 3 lines before printing by en- 
tering 0, 1, 2, or 3, respectively, in col. 
17 of the pertinent File-Identification 
specific at iens. 

A blank in col. 17 has the same effect 
as entering a 0; i.6., no space before 
printinq . 

Space, After — Col. 18 

Equivalent to Col. 17, but controls line 
spacing after printing. 
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skip, Beiore — Cois. i^-^O 

Any number from 01-12 may fce entered tc 
cause the paper form in the printer to be 
advanced, before the line is printed, until 
a punch is sensed by the tape-reading 
brushes in the corresponding channel of the 
synchronized forms-carriage control tape. 
If a tape punch in that channel is already 
lined up with the brushes, the form "will 
nevertheless advance, until a punch in that 
carriage-tape channel reaches the tape- 
reading brushes again. 

A leading need not be recorded with 

this EPG; i.e., * 1 = 01. 

00 is treated as egual tc bb 

Skip, After — Cols. 21-22 

Eguivalent to cols. 19-20, but controls 
forms skipping after printing. 

Points tc Note 

1. If the user's application offers a 
choice 

a. Eetween Space/Eefcre and Space/ 
After, Space/After should be em- 
ployed; or 

h. Eetween Skip/Befcre and Skip/After, 
Skip/After should be employed. 

Forms movement after printing of a line 
usually gives better throughput: it 
permits overlap of subsequent proces- 
sing with the forms movement; whereas, 
if fcrms movement takes place ahead of 
printing of a line, execution of the 
print instruction has to await comple- 
tion of forms movement. 

2. Line spacing may be stipulated for both 
before and after printing of a line. 
Thus, a maximum cf 6 line spaces (i.e., 
5 intervening blank lines) may be 
achieved between successive print lines 
without skipping. 

3. Forms skipping may be stipulated for 
both before and after printing cf a 
line . 

U. If Space/Before and Skip/Befcre are 
both stipulated for the same print 
line: the Skip is executed first, fol- 
lowed by the Space operation. 

5. If Space/After and Skip/After are toth 
stipulated for the same print line: 
only the space operation is executed. 

6. A forms advance to the next carriage- 
tape channel-1 punch is automatic: 

a. At the conclusion cf program 

generation — unless the EPG Control 



7. 



Card (card H) contains a E in ccl. 
11, which suppresses program list- 
ing during generation (see the 
Operating Procedur es manual) . 

b. After total-output time if, at any 
time in that program cycle (i.e., 
during detail-time output or during 
total-time output) , a line was 
printed at or telcw the point at 
which a carriage-tape channel-12 
punch was sensed by the forms- 
carriage brushes — and provided OF 
(or OV) is not assigned in Output 
Indicators of any File- 
Identification specifications for 
that file. 



This implies that, if (by virtue cf 
the user's RPG specifications) more 
than one line may be printed in a 
single program cycle without a speci- 
fied skip to a new page, the distance 
cf the channel-1 carriage-tape punch 
from the channel-12 punch must be long 
enouqh to allow all lines in a program 
cycle to be printed without exceeding 
the maximum desired print lines on a 
page. 

Note: If OF appears in Output Indica- 
tors of any File-Identification line 
for the standard (or lower) printer- 
carriage (i.e., file PRINTER or 
PRINTLE) , no automatic overflew fcrms 
skip tc the channel-1 punch ever occurs 
for that file: overflow forms skipping 
must then be specified in an overflow- 
time File-Identification line — see 
below. The equivalent applies to OV 
with the upper carriage — file PRINTUF. 
(These statements do not apply if enly 
NCF or NOV appears in Output Indicators 
for the respective file, nor if OF or 
OV appears only in Field-Description 
Specification lines.) 

Successive printer outputs can be 
printed on the same line of the printer 
form (i.e., without intervening forms 
movement) by appropriate space and skip 
specifications cf blank or zerc, tc 
effect "space suppression": if cols. 
17-22 are blank or zeros, no spacinq or 
skippina cccurs tefcre cr after the 
line is printed (but see distinction 
between blank and zerc for OR lines, 
above) . 

Note however that, if the multiple 
outputs — intended for a single line on 
the printer form — cccur during dif- 
ferent program cycles, they may become 
separated to different pages: the 
automatic forms advance operates as 
described in item 6 (b) above, even 
though all space and skip specification 
fields for these outputs may be zero or 
blank. 
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If the multiple outputs to one 
printer line are in the sarre program 
cycle, no automatic fcrms advance can 
separate the lines (since the automatic 
advance to the channel-1 punch takes 
place cnly after tctal-output time) . 

8. A Skip (by a specif icaticn in eels. 
19-2C or 21-22) past a carriaqe-tape 
chanrel-12 punch — i.e., frcm a point on 
the pace higher than the channel-12 
punch--has the following effects: 

a. If the skip is tc cr past a 

channel-1 punch: The overflew 
indicator (OF or OV) is not turned 
en. 

t. If the skip is tc a carriage-tape 
punch in any channel other than 
channel 1, and a channel-1 punch is 
net passed or reached during this 
skip: The overflew indicator (OF 
or OV) is turned en, after the line 
at or past channel 12 has been 
printed. 

9. Cnce a line has been printed at or be- 
low the point at which a carriage- tape 
channel-12 punch was sensed, an inter- 
nal switch is set which will cause the 
overflow indicator (OF or OV) tc turn 
cn ^i_ihs_end_cf (not during) that 
cycle-segment output time. It cannot 
te turned off ty a skip-to-chanr el-1 
specif icaticn (contrary to the situa- 
tion described in 8 (a) above) . 
Therefore : 
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If OF (or OV) is specified in Cut- 
put Indicators of any File Identi- 
fication speci^icatiens line fcr 
the respective file, the prcgram 
will execute overflew File- 
Identif icaticn specifications for 
that file at overflow-output time 
following tctal-cutput time--even 
if a skip to channel 1 was speci- 
fied (and executed) in a File- 
Identification specif icatiens line 
whose output followed the detection 
of the channel-12 punch, in the 
same prcgram cycle. 
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Note 2 : For compatatility with other 
EPGs, there should be an entry in at 
least one of the Space or Skip fields 
cf the first File-Identification speci- 
fications line fcr each printer output 
(i.e., it is net necessary in an OR 
line) . If the user requires nc entry 
(no Space or Skip desired), he should 
enter a zero in Space/After (col. 18). 



Output, Indicators--Cols. 23-31 
(File -Identification Specifications) 

Indicator cedes entered in these fields 
determine the conditions under which the 
output operations defined in this File- 
Identification specifications line, and in 
its subsidiary Field-Description specifica- 
tions lines, are to be executed . 



17 a System/36C Model 20 CPS Bepcrt Frcoram Generator 



Identification specif ica tiers line control 
the occurrence of that entire output — -rot 
cf a particular field. (Output Indicators 
may also te assigned to individual fields. 
This is discussed under j[ield Description 
and Ccntrcl, telcw.) 

Atsence of an entry calls for execution 
cf that output at detail time cr total 
time — D (cr H) or T, respectively, in col. 
15 (Type) — each program cycle. Note that 
detail tine includes detail- output time 
before the ^irst card has teen read (when 
the 1P indicator is en) . 

Any indicator — except OE cr OV (dis- 
cussed separately below) — may te entered in 
cols. 24-25, 27-28, cr 30-31 to instruct 
the program to execute the particular cut- 
put specif icatiens enly if that indicator 
is on at that time (detail time cr total 
time, as determined by the entry in col. 
15) . If an N (=Not on) is entered in the 
column preceding the indicator cede (eel. 
23, 26, cr 29, respectively), the output is 
performed only if that indicator is net on. 

Note: Any FECEIC character ctrer than N in 
eel. 23, 26, cr 29 has the same meaning as 
a blank. 

The trree fields (eels. 23-25, 26-28, 
29-31) are identical in functicn. If less 
than three cenditicnina indicators are 
assigned, it dees net matter which cf the 
three fields are used. Up to three dif- 
ferent cenditicning indicators may te 
desiqnatec in one File-Identif icaticn spec- 
ificatiens line. All indicatcrs assioned 
to one line are in an AND relaticnship to 
each other; i.e., the conditions for all 
indicators in the line must te satisfied 
for the cutput te be performed. Each cf 
the several indicators may individually be 
required to be en cr net en (N) as a condi- 
tion of performance cf the output 
operation. 

If more than three Cutput Indicators in 
an AND relaticnship are needed to condition 
an output operation, additicral lines may 
be used, each able tc accommodate up to 
three more indicator entries. Such lines 
must be immediately below the initial File- 
Identification specif icatiens line for the 
particular output. They must te blank 
except fcr the wcrd AND required in cols. 
14-16 and the desired entries in Cutput 
Indicators (cols. 23-31) . 

Different Output Indicators may be 
placed in an OF relaticnship to each ether; 
i.e., the cutput operation is tc be per- 
formed if any cne cf several indicatcr cri- 
teria is satisfied. A separate File- 



for each OB line, and placed immediately 
beneath the initial File-Identification 
line (cr any AND or CE lines) fcr the par- 
ticular output. The word OE is entered in 
cols. 14-15, the desired indicators in Cut- 
put Indicatcrs, and--cptionall y--Stacker 
Select and forms ccntrcl instructions in 
cols. 16-22. 

Ecth AND or OE relationships may be 
specified ir ccnjuncticn with each cther-- 
i.e., the output operation is to be per- 
formed if any cne cf several combinations 
of indicator conditions is satisfied. 

When there are AKE or CE lines for an 
cutput operation, then every AND line, 
every CE line, and the initial File- 
Identification specifications line for that 
cutput operation must each have at least 
one entry in Output Indicators. If the 
indicators for successive lines in an OE 
relaticnship are not completely mutually 
exclusive, the program executes the speci- 
fications (Stacker Select and forms con- 
trol, if any) of the first line whose indi- 
cator criteria are satisfied (except if one 
of the Output Indicators specifications is 
CF or CV, for the lower or upper feed 
respectively — see below). 

Entries in Output Indicatcrs utilize 
indicatcrs only to condition the execution 
cf an cperation--they do net set them as 
Eesulting or Field Indicators. Therefore, 
the use cf an indicator in Output Indica- 
tors never changes its status (on or not 
on) . An Indicator applied in Output Indi- 
cators reflects the status (en or not on) 
it previously assumed: 

1. As card-type Eesulting Indicatcr, cr 

2. As Field Indicatcr, cr 

3. As calculation Besultina Indicator, or 

4. As Control level indicator, or 

5. As Matching Fields indicatcr (ME) , or 

6. Throuah a SETCN or SETCF instruction, 
cr 

7. As its initial status at the beginning 
cf program execution--if never chanaed, 
cr 

8. As a result of a Elank-After cutput 
instruction, or 

9. As a censeguence c* forms-control 
carriaqe-brush sensing of a carriaqe- 
tape channel-12 punch — if OF or OV 
indicator. 
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The status of an indicator may have a 
different significance at detail time and 
at total time — for example: 

(a) It may reflect different cards. For 
instance: 

At total time, the MR indicator and 
Field Indicators reflect the previous 
input card whereas L-indicators and 
card-type Resulting Indicators already 
reflect the new input card; or 

(b) Its use may have a different effect. 
For instance, with L-indicators em- 
ployed in the normal manner, with Con- 
trol Levels: 

An L-indicator in Output Indicators of 
a total-time output operation (T in 
col. ^5) , makes printing or punching 
at total time contingent on occurrence 
of a control break of that or higher 
level — the standard method for proaram- 
ming output cf qroup totals or of spec- 
ifying a group-printed report; but 

An L-indicator in Output Indicators of 
a detail-time output operation (D or H 
in col. 15), makes printing or punch- 
ing at detail time contingent on a pre- 
ceding control break of that or higher 
level — a method for prcgramminq qrcup- 
indication (printing identifying data 
only from the first card of a control 
group) . 

For details on indicators, see also Pro- 
gram__Logic Flow , RPG_Proqra m Log ic, (Figure 
6) / Indicators, Indicator^ Hierarchy, and 
Hatching of Files, all under Programming 
for RPG--General Information; Resulting 
Indica tor s, Fie ld Indicators, Con trc l l ev el 
and tl ate hiTi g fl e Ids , ail under Tnj3 uf _5^eci- 
ficafions; and Indicators and Res ult - 
Testing Fi elds , under Calculation 
Specif ic at io n Sj 

Points to Note 

1. The output operation called for by the 
File -Identification specifications 
occurs in a program cycle--at detail 
time if D or H is specified in ccl. 15 
(Type) ; at total time if T is specified 
in ccl. 15--if either of the following 
situations in Output Indicators (cols. 
23-31) applies: 

(a) The Output-Indicators fields are 
blank; or 

(b) Any indicators specified, and not 
preceded by N, are then en; and any 
indicators specified, and preceded 
by N, are then off. 

These criteria are valid also at the 
detail-output time that precedes the 
readinq of the first input card (the 
uppermost I/C block in Fiqure 6, RPG 
Program logic) . 

If the output is to be suppressed at 



detail-output time preceding the read- 
ing cf the first input card — and it 
should normally be suppressed at that 
time, except for the printing of con- 
stant data as report or column 
headings — an indicator must be assigned 
in Output Indicators. This may either 
be the code of an indicator known to be 
off before the first card has been read 
(such as a card-type Resultinq Indica- 
tor) ; or it can be an indicator known 
to be on at that time, but the entry is 
preceded by N, so that the output is 
performed only when that indicator is 
not on (for instance, N1P) . 

All indicators are off before the 
first input card has been read, with 
the exception of the following which 
are on at the start of ob-ject-program 
execution (see also Indicator Hierarchy 
and Figure 1 1) : 

1P and LO; and any indicator assigned 
to "Zero or Blank" in input Field Indi- 
cators or in calculation Resultinq 
Indicators (arithmetic operations or 
TESTZ) . 

Permittinq any output operation — 
apart from the printinq of constant 
report-headinq data (see Constants, 
below) — before the first input card has 
been read, may produce spurious 
effects: such as a line of zeros 
printed, a card punched or printed with 
zeros, or a combined-file card never 
read, etc. (See also Output Be for e 
First Card is R ead, under Progra m logic 
Flow.) 



2. Total time is always bypassed in the 
first proqram cycle--and in the first n 
pf oqr a m cycles under cert ain circum- 
stances. (For a full explanation, see 
Total-Time Processing on _" Run- In", 
under Progr am l ogic Flow.) 

Bypassing of total time does not, 
however, prevent the proper settinq of 
L-indicators to reflect qroup-control 
breaks. Thus, even thouqh total-time 
output is bypassed, L-indicators speci- 
fied in Output Indicators to control 
group-indication (i.e., printing of 
identifying data from the first card of 
a control qroup) at detail time will 
operate properly also for the first 
data card of the deck (but see 3, 
below) . 

3. The L-level control fields in the first 
data card (of a type for which control 
fields are specified) are compared 
aqainst zeros (FECDIC FO) in cere 
storaqe. Zeros (and, for numeric 
fields, also blanks) in control fields 
of such a card result in an "eaual" 
comparison and therefore do not turn on 
the relevant L-indicators. This may 
present a probien in group-indication 
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for the first control group when the 
control fields of the first group con- 
tain no significant data. (See Special 
C on side ra tio ns for Indicators, 1 1-19 on 
"R un-In" , under Indicators , in the sec- 
tion Programming for RPG — General 
Info rmatio n. ) 

A technique for circumventing any 
such prcblem is presented in Pr og ram - 
ming Tips, Appendix E. 

igures 50 A and B illustrate specifica- 
s for File Identification and Control, 
orarily excluding the OF and OV indica- 
(discussed next) . The reader is asked 
ssume, for purposes of this illustra- 
, that each File-Identification speci- 
ticns line (cr group of lines, when 
e are AND or OR lines) is followed by 
east one Field-Description specifica- 
s line (discussed later) . 
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Fiaure 50A. 



Simple Examples of Entries for 
File Identification and Con- 
trol (Excluding OF and 0V 
Indicators) 



Explanation of Entries in Figure 50A 



REPORTff 1 is associateu witn tue printer; 
F in col. 15 (Type) specifies detail 
time (a D, instead of H, would have been 
synonymous) ; 

The 1P indicator is on at the beginning 
of program execution, and is turned off 
by the RPG program itself immediately 
after the first card has been read. 

Thus, the output is limited to printing 
at detail time, before the first card has 
been read; i.e., the first detail-output 
time only. The Field- Description specifi- 
cations following this File-Identification 
line are assumed to contain constants, to 
be printed as headings across the first 
print line of the first page. 

If 1P were not specified, but Output 
Indicators left blank, the heading con- 
stants would be printed at detail-output 
time of every program cycle. 

Skip/Before to the next carriage-tape 
channel-01 punch is specified, to make sure 
to start at the top of a fresh page. After 
the headina, the form is advanced 3 lines, 
so that two blank lines intervene before 
the first detail-data line. 



Li ne 03 calls for printing the data in the 
fields presumed to te designated in Field- 
Description specifications beneath this 
line. The file name (REPORT* 1, cols. 
7-14) need not be repeated, because no 
other file name intervened—but it may be 
repeated . 

This output is at detail time (D in col. 
15--H could have been used instead); 

The output is suppressed if the H1 and/ 
or the 1P indicator is on. NH1 was 
arbitrarily chosen to point out that 
H1 might be assigned to an error con- 
dition, to halt the system after 
detail-output time, and the same indi- 
cator can conveniently be utilized to 
suppress output. If NIP were not 
assigned, the output would also occur 
before the first card has been read. 



Assumptions : A straight listing is 
desired, with two classes of total and 
grand total. Headings of constant data are 
to be printed on one line across the top of 
the report on the first page. At each 
Ievel-1 control break, a summary card is to 
te punched. The printer has been assigned 
(in the file description specifications) 
the file name REF0RT#1, and the card punch 
device has the file name SUMCARD. 



Spe cificatio n line 01 causes printing only 
at detail time and only before the first 
data card has been read: 



The 1 in ccl. 18 causes single spacing 
after each detail-output line. 



Line 5 causes printing at total time (T in 
col. 15), provided the 11 indicator is on. 
This is the normal method for printing 
totals at the end of a control group of 
Level 1. The file name need not be 
repeated, even though this specification is 
for total-time output and the previous one 
was fcr detail time. 

To offset the total line from a group of 
preceding detail lines, a Space/Before is 
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specified. This creates one blank line 
between the last detail line (where 1 
Space/After was specified) and the I 1-total 
line. After the Li-total line, the form is 
advanced 2 lines, tc leave a blank line 
before the next detail line. 



Throuqhout, note that (1) all detail-output 
specifications must precede all total- 
output specifications, and (2) Space and 
Skip are forms-control specifications and 
can, cf course, only be entered in Pile- 
Identification lines fcr printer output. 



Line 07 directs the program to punch a card 
(SUMCARD is associated with a card output 
or combined file) at total time, if the L1 
indicator is on— a standard method cf 
punching group totals into summary cards. 



The SUMCARD output spe 
have followed the 12- or 
output; but they were del 
posed between the LI- and 
output specifications: a 
media for the same progra 
speed throughput. Theref 
the proportion of L2 cent 
relation to L1-only break 
gained by interpesinq the 
between the two printer o 
Sequen ce of Specification 



cifications cculd 
IR-level printer 
iberately inter- 

L2-level printer 
lternating cutput 
m cycle tends to 
ere, the higher 
rcl breaks in 
s, the more is 

card-punch output 
peratiens (see 
s, above) . 



Iine_09 causes printing at total time, pro- 
vided indicator L2 is on. This is the 
normal method for printing totals at the 
end cf a centre! group of Level 2. 
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After every L2-level printer cutput, the 
forms-ccntrol-carriage tape advances to the 
next channel-1 punch, i.e., the top cf a 
new paqe. 

The file name REFCRT#1 roust be recorded 
because cutput tc ancther file (SUMCARD) 
intervened. 



Line 1 1 is equivalent to lines 05 and C9, 
but is operative only when the Last Record 
indicator is on. Final totals are printed 
en a predetermined line (Skip/Before tc 
carriaqe-tape char.nel 10) , and a Skip/After 
to the top of a new page takes place after 
printinq. The file name is the same as for 
the precedina output and therefore need not 
be repeated. 
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Fiqure 50B. Further Examples of Entries 
for File Identification and 
Control (Excludina CF and OV 
Indicators) 



Explanation of Entries in Fiqure 50E 

Assumptions; The MFCM and a printer are 
used to produce an inventory status report; 
to update the inventory item-master card 
file; and to punch unit and extended prices 
into item-order detail cards, on the basis 
of quantity in the detail cards and unit 
price in the master inventory cards. 
Behind the item-crder-card croup for each 
stock number represented is a blank trailer 
card, which is to become the updated 
inventory-item master card. Inventory-item 
masters are in hopper 1, transaction (item- 
order and blank) cards in hopper 2. 



The eld inventory master-card file is 
named CLBBALCE; the file with the item- 
order detail and blank cards is named 
TRSACTNS. Eoth files are defined (in the 
File Description specifications) as combi- 
ned files: the TRSACTNS file because its 
cards are to be read, punched, and stacker- 
selected at output tirre; the OLDEALCE file 
only because, besides beincr read, some of 
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its cards are to be stacker-selected on the 
basis of the MP indicator—which must be in 
the output specifications, and requires an 
output operation (say, punching a "blank" 
in col. *) . ^he ^iles are matched (Match- 
incr Fields — M1) on stock number. 



either o^ these combinations of conditions 
exists: 

Indicators MP and 21 and 40 and 62 are 

all on; or 
Indicators HP and 21 and 14 are all on, 

and indicators 40 and 62 are both off. 



The file tnvntry is associated with the 
printer. The File Description specifica- 
tions call for turnina the LP indicator on 
when both card files are exhausted. 



SP§2if i2iliion_line_02 causes print ina only 
at detail time (D in col. 15--^ would have 
had the identical effect), and only before 
the first data card has been read (1P in 
Output Indicators). ("eadina data, in the 
form of constants, is presumed to be con- 
tained in the Field-Description specifica- 
tions.) Before the line is printed, the 
form skips to the top of a new pace (0 1 in 
cols. 1P-2*" 1 ) ; and a f ter printing, the form 
advances to the next carriaae-tape channel- 
2 punch (02 in cols. 21-22). 



Lines 03 and 04 cause old inventory master 
cards to enter the normal stacker (stacker 
1) for the primary hopper of the MFCM 
(blank in col. 16 — a 1 could eaually well 
have been specified) whenever there is at 
least one matchina detail (item-order) 
card — MP indicator on--but to enter stacker 
2 (2 in col. 16) when there is no matchina 
detail — NMR. In line 13, new inventory 
masters are also selected to stacker 2. 



These are presumed to be two types of item- 
order detail cards, to be processed alike. 
Both types are selected to stacker 3 (by 
entry of different stacker numbers in lines 
06 and Op, the two types could be directed 
to different stackers) . 



Iine_M. All item-order detail cards (say, 
card-type Pesultina Indicator 21) should 
have a matching inventory master card 
(Ot.dbat.cf file) . If there is no master 
(indicator condition NM 1 ?) , either a master 
card is missina or the detail card is 
punched with a wrona stock number. The 
detail card is directed to the normal 
stacker (col. 16 blank) for the MFCM 
secondary hopper, to be investigated. 

A second indicator specification 
(besides NMR) is reguired (card type 2* was 
used) to prevent performance of this output 
before the first data card has been read 
and each time an T DBALCE card is pro- 
cessed, and to distinguish this card from 
the blank card (see line 13) at the end of 
each stock-number detail-card group. 

The file name (cols. 7-14) need not be 
repeated, because no other file name 

intervened . 



Lines_03 x _04_and_J_3 jointly have the effect 
of selectina out (to stacker 1) old inven- 
tory masters (line 03) that are being 
replaced by updated new ones (line 13) ; but 
directina to stacker 2 those old inventory 
masters for which no new ones are beina 
created (line 04) . At the conclusion of 
the job, stacker 2 contains the updated 
complete inventory master-card file: 
newly-punched updated cards to reflect 
transactions, plus old masters for items on 
which there were no transactions. 

Besides MR and NMR, respectively, the 
card-type Resulting Indicator (05) assumed 
to have been assigned to the OLDBALCE cards 
in the input specifications is also speci- 
fied here—otherwise, in every program 
cycle in which a TRSACTNS card is pro- 
cessed, the next OLDBALCE card would also 
be fed through, but never read; and NMR 
alone would allow an OLDBALCE card to*be 
fed through at the beginning, without being 
read. 



Lines 06 -09 illustrate AND and OR specifi- 
cations. The operations are performed if 



J_ine_^3 specifies the output f or the blank 
card at the end o^ each stock-number 
detail-card crroup. This card will be 
punched with the updated inventory informa- 
tion, and becomes the new inventory master 
for the particular stock item. 

Resulting Indicator 01 was assigned to 
this card type in the input specifications. 
The cards are selected to stacker 2 to 
form--in conjunction with old master cards 
for which there were no transactions (see 
line 04) — an updated complete inventory 
master deck. The file name (TRSACTNS) was 
repeated just to show that this is 
permissible — it v is not necessary. 

Output to this card could be performed 
at total time (T in col. 15). However, 
although totals for a preceding group of 
cards are to be punched, detail time (D in 
col. 15) was chosen, to illustrate that 
there is no fundamental difference between 
the operations that can be performed in 
these two segments of the program cycle— 
provided the appropriate data and indicator 
settings are available: this card type 
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(the blank card) , although part of a combi- 
ned file, serves only for output; no data 
is read from it; the-data is ready for 
"summary" punching when the preceding card 
has been processed, and the status of the 
MR indicator is not relevant. Therefore, 
this card can be punched at total or detail 
time. If it is desired to perform output 
to the blank trailer card only if the 
detail cards matched the OIDBALCE cards, MR 
should be specified (in addition to 01) in 
Output Indicators; the output should be 
performed at total time (T in col. 15), 
when the MR indicator still reflects the 
matching status of the previous card. 
(Because all total-time specifications must 
follow all detail time specifications, the 
specifications now in line 13 would have to 
be moved beyond line 15.) 



Line_Jl5 provides for printing the updated 
inventory information after the last trans- 
action card of each stock-number group. 
This is the proaram cycle during which the 
Hank card (indicator 01) at the end of 
each group is being processed; therefore, 
indicator 01 is specified in Output Indica- 
tors. Again, the printed output is per- 
formed at detail time (D in col. 15) ; but 
it could egually well be performed at the 
preceding or following total time. Either 
way, it illustrates a group-printed report, 
since the individual transaction cards are 
not printed. 

The form is spaced 2 lines after each 
printing. 



Line 17 provides for the printing of grand 

totals; ftre -- output -"Its performed: Only "wlren 

the LR indicator is on. This operation 
must be performed at total time, because — 
when the LR indicator is on — the job is 
terminated after total output. 



reflects the matching status of the 
preceding card: this can be utilized 
for output to a card based on the 
matching status of the preceding card. 



3. In this example, Control Level was not 
utilized: a blank (trailer) card was 
assumed to have been merged previously 
behind each stock-number group of 
transaction (item-order) cards. The 
program cycle for the trailer card is 
used to perform the group-end 
operations. 

This re-emphasizes that Control 
Level (L-indicators) and matching 
Fields (M1, M2, M3, and the associated 
MR indicator), have no inherent connec- 
tion with each other — applications 
involving matching-records groups do 
not necessarily reguire Control Levels. 

In both Figures 50A and 50B, forms 
advance to the next channel-1 punch is 
automatic after total-output time whenever 
a line has previously been printed at or 
below the channel- 12 punch—because OF (or 
OV) is not designated in Output Indicators 
of a File Identification line. 



Overflow Indicators--0F, OV 

The overflow indicators are related to 
printer forms movement. Overflow indicator 
OF is associated with the standard forms- 
control carriage, and with the lower feed 
of the Dual-Feed Carriage special feature 
(see below) available for the IBM 2203 
Printer. OV is the overflow indicator 
associated with the upper feed of the dual- 
feed c'affiagel. 

The principal functions of the overflow 
indicators are (for their respective 
carriages) : 



The grand totals are printed at the top 
of a new page (01 in cols. 19-20) , and the 
form is again advanced to the top of a new 
paae after printing (01 in cols. 21-22). 



1. To provide for the control of output 
operations — among them such as forms 
advance to a new page, and page and 
column headings after the bottom of a 
page has been reached. 



Note that: 

1. All detail-output specifications must 
precede all total-output 
specifications. 

2. Card output operations contingent upon 
the status of the MR indicator (applied 
in the normal manner, to the matching 
of files) at detail time reflect the 
matchina status of the card being pro- 
cessed; at total time, MR still 



2. To condition the execution of calcula- 
tion specifications on the basis of 
whether the bottom of* a page was 
reached (by entry of OF, OV, NOF , or 
NOV in Indicators, cols. 9-17, of the 
calculation specifications) . 

The relevant overflow indicator turns on 
at the conclusion of a program-cycle 
segment — i.e., after completion of all 
detail-time output, or all total-time 
output — if, during that program-cycle seg- 
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ment , either of the following situations 
cccured in that file. 



cvertiow condition occurred durinq the 
preceding detail-time output. 
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When either of these two conditions 
occurs, it stores a siqnal tc turn en the 
overflow indicator at the end of that cut- 
put time and, if this is detail-output 
time, then also after the next tctal-cutput 
time . 

(No new overflew siqnal is created if chan- 
nel 12 is passed during cverf lew-output 
time. ) 
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Four pcints inherent in the above state- 
ments shculd be emphasized: 
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3. 



4. 



The overflow indicator 
during output time as s 
channel-12 punch is sen 
on after all output ope 
cycle time-segment (det 
or total-time output) h 
pleted, if an overflow 
occurred at any time du 
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printed at or beyond ch 
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Although the overflow indicator does 
not turn on until completion of output 
for the program-cycle segment durinq 
which overflow was siqnalled, once 
either condition (1 or 2 in previous 
paraqraph) that determines overflow has 
occurred, the indicator will turn on- 
even if a Skip instruction to channel 1 
follows the overflow siqnal within the 
same cycle seqment. 

Skippinq past a channel-12 punch to a 
punch in channels 2-11, without passinq 
a channel-1 punch, creates an overflow 
condition; but skippinq past channel 12 
to or past channel 1 does not. This 
has certain implications- 
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If an overflow indicator is on, because 
of an overflow condition durinq detail- or 
total-time output, then — after conclusion 
of all total-time output in that proqram 
cycle — cne of two events occurs: 

1. If -ftOF (or -BOV, respectively) does not 
appear in Output Indicators (cols. 
23-25, 26-28, or 29-31) of any File- 
Identif ication specifications line of 
that file (see also Dual-Feed Carriage, 
below) : The form (for that file) is 
automatically advanced until the next 
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char.nel-1 punch is sensed by the 
carriaqe-contrcl stop brushes. (If a 
char.nel-1 punch is already at the 
carriage-control brushes, the form is 
advanced tc the next channel- 1 punch.) 
Nevertheless, the overflew indicator 
remains on until conclusion of the next 
detail-time output. 



2. 
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If an overflow indicator is turned eff 
or on ty a SETOF or SETON instruction, cr 
as a Field or Resulting Indicator (in input 
or calculation specifications) , it 
reverts — at the conclusion of the output 
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time that follows its proqrammed settinq — 
to the status it would have had otherwise. 

Further details on the behavior of over- 
flow indicators appear in Fioure b (RPG 
Proqram Logic) and under Program_Xocic_Flow 
(Overflow-Time Output) , Indicators (CF, 
CV) , and In di cator Fierarchy--all in Pro- 
gra mming for RPG — G eneral Informati on ; 
under Space, Skip (Points to Note: 6,8,9, 
10), above; Outpu t Indicators — OF, OV, 
immediately below; under Dual-Feed Car - 
ri age, below; and under Output Ind icators, 
i n Fi eld-Description Specifications, below. 



Output Indicators--CF, OV 
(File-Id entificaticn Specifications) 



Entries of indicators other than CF and CV 
are discussed above (under Out_put 
Indicators- -Co ls. 23-31). Entries of NOF 
or NCV operate like entries of any other 
indicators in these fields (cols. 23-31), 
except that the output is then conditioned 
to be performed only if that overflow indi- 
cator (OF or OV, respectively) is not on at 
the particular output time (detail or total 
time--D or T in col. 15). 

The conditions under which cverflow 
indicators (CF, CV) are on are explained 
above (Over fl ow Indicators — OF, OV) . 

If CF (or OV) is specified in Output 
Indicators of a File-Identification line, 
that output is always executed following 
total-time output, and only provided the OF 

(or CV) indicator is then on. Execution is 

alsg._sub.ject... to... the. status.,.. . at... cverf Lew-. 

output time, of any other indicators speci- 
fied in an AND relationship to the OF 

(or CV) indicator. 
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During overflow-output time, all outputs 
conditioned by the OF (or OV) indicatcr are 
perf crmed--sub ject tc appropriate status of 
Output Indicators assigned--in the order in 
which the File-Identification lines appear 
in the output-format specifications, 

fcX'^fc [. . . d. ._. j. i-L.i-.dj_ uiCLiiUt -> a >, _ d l. (j. j__ x 

col. 15) precedes all "detail" overflow 
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output (D or H in col. 15) . Although ail 
overflow-time output occurs during a separ- 
ate program cycle segment, the File- 
Identification lines for overflow-time out- 
put must nevertheless te grouped with the 
ether detail (D in ccl. 15) or total (T in 
col. 15) output lines. 



WARNINGS 



Curing overflow-output time, the card- 
type Eesulting Indicator for the next 
card is on. If output is suppressed on 
that card type — or conditioned to occur 
only en some ether particular card 
type — nc fcrms advance to the new paqe 
occurs. (There is nc automatic over- 
flow forms-skip to a channel- 1 punch of 
a carriage when OF (or CV, respective- 
ly) is specified in Output Indicators 
of any File-Identification line of that 
file.) Conditioning overflow-time out- 
put fcy card-type Resulting Indicator or 
Field Indicator--when one cannot be 
sure at what pcint of the card deck the 
overflow will cccur— can create the 
impression that the overflew operation 
failed: in reality, it may have been 
suppressed — by indicators in an AND 
relationship — during the one program 
cycle during which the overflow indica- 
tor was on. It does not remain on 
beyend the next detail-time output, 
merely because nc forms-skip tcck 
place. 

Similar comments apply to calcula- 
tion specifications whose performance 
is made contingent on the status of an 
overflow indicator and a card-type 
Resulting or Field Indicator. 

Other, seemingly peculiar, results can 
cccur when not all types of input (or 
combined-file) cards print detail out- 
put. For example-- 

Assume: Input cards of type A and 
type E, Only type A is listed (at 
detail time) ; but both types are 
included in group ccntrcl (Control 
Level) . Group totals are printed 
at total-cutput time. CF is spe- 
cified in Output Indicators, for 
forms advance and printing of 
overflow-page headings. 
Effect : As previously explained, 
all group totals are printed en 
the old page, before overflow-time 
output, wVen a control chanqe 
occurs in the same proaram cycle 
in which a charnel-12 punch is 
passed (because overflow- time out- 
put fellows total-time output) . 
This remains true and is manifest- 
ly true when a type-A card is the 
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What actually happens is: the overflow 
siqnal is triggered durinq detail-time out- 
put printing of a type-A card. This is 
followed by total-time output (of the same 
program cycle) , during which nothing is 
printed (no control break) . This, in turn, 
is followed by overflow-time output during 
which the form is advanced to the next page 
and overflow-page headings are printed. 
The next card is of type B, for which noth- 
ing is printed during total- or detail-time 
output. This type-B card concludes the 
control group. Totals are therefore 
printed before processing of the next card. 
Since forms advance took place durinq pro- 
cessing of the preceding type-A card, and 
nothinq has been printed frcm the type-B 
card, the group totals are the first non- 
overflow data on the new paqe. It now 
looks as thcuqh overflow occurred before 
total-time output; tut the overflow opera- 
tions and the group-total printing actually 
occurred in two different program cycles. 



File-Identification Specifications in AND 
and OR relationships are explained above 
(under Ou tput Indicators) . 

File-Identification lines with OF (or 
OV) in Output Indicators may be in AND 
relationship with preceding and-or follow- 
ing lines (when more than three indicators 
are required in an AND relationship) . The 
user must remember that the status of the 
other indicators at overflow- cut put time is 
then relevant — not their status at detail 
time, even if Type (col. 15) is desiqnated 
D. 
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le-Identificaticn lines with OF (or 
n Output Indicators may be placed in 

relationship with precedinq and/or 
wing lines. The user must then be 
ul that the output does not occur 
— once at overflow-output time and 
at total- or detail-output time — when 
utput Indicators in two lines in an OR 
ionship satisfy the criteria. (Fiqure 
ines 09 and 14, partially illustrates 
cint.) Execution of the overflow 
fications should then be suppressed 
the OR condition also exists (e.cj.: 
). (See also Figure 51A.1 
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n example: 

f a qrcup identification is to te 

ted at detail-output time cf the first 

of each control group, and also at the 
of an overflow page, cne ccmincn prc- 
ming technique involves two File- 
tification lines in an CR relationship, 
line has OF in Output Indicators, the 
r II. (D is specified in col. 15.) 
ver, if printinq at the overflew pcint 
cr below the channel-12 punch) ccin- 
s with the last card cf a ccntrcl 
p, group identification is printed 
e: that of the old grcup at the tcp of 
new page (during overflew- time output) , 
the identification of the new qroup at 
il-output time of the first card of the 
grcup. If fcrms advance is specified, 
lso occurs twice. 
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Scmetimes it is desired to print the 
same column headings at the top cf the 



first page and of overflow paqes. Twc con- 
venient approaches are shewn in Fiqure 51B. 

Note: Passing channel 12 during overflow- 
output time does net cause the overflow 
indicator to turn on aqain for the next 
cycle. Therefore, it is possible to skip 
to mere than one new page during overflow- 
output time, without this itself causing 
overflow after total output of the next 
cycle . 



Explanation of Entries in Figure 51A-Part I 

The File Name PRINT is assumed to have been 
associated with the printer, in the File 
Description specifications. 

It is desired to print the column head- 
inqs (the words ACCOUNT, NAME, BALANCE) 
across the top of each page — en the first 
page, on each overflow page, and on the new 
page to te started after each L2 Control- 
Level break. The example illustrates a 
simple method for printing the same con- 
stant information under each of these three 
conditions . 

Printing must be at detail-output time 
(D or H in col. 15) in order (1) to print 
constants before other data from the first 
card of a control grcup and (2) to skip to 
a new page on a control break after — not 
before — the group totals have been printed. 
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Figure 5 1A. Forms Advance and Printing of Constants or Identification en Overflow and 
After Ccntrcl Break 
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occur at the beginning of each 12 ccntrcl 
group. The "constant" data (explained 
under Fiel d De sc ripti on, below) is there- 
fore printed on the first page, as well as 
on every other new page started when a new 
L2 control group begins. 



Line_02 provides for the same output — the 
column headings of constant data — at the 
top of each overflew page. 

Because overflow output and detail cut- 
put take place in separate distinct time 
segments cf the program cycle, either the 
operation in line 02 or that in line 1 
must be suppressed when an L2- level control 
break cccurs in the same cycle as an over- 
flow signal. If neither NL2 in line 02 nor 
SOI in line 01 were specified in Output 
Indicators, and an overflew signal and L2 
control break coincided in cne program 
cycle, the events would be: 



1. Skip to channel 1 at 

start of overflo 

put; \ OF 

2 



i at \ 
w out- / 

Printing of constant ( specifications 
data; J 

i. 



3. Skip to channel 1 at 
start cf detail-time 
output V 12 

4. Printing of constant ( specifications 



data 



In this example, it is immaterial wheth- 
er overflow output is suppressed when 12 is 
en (line 02: OF NL2 ; line 01: 12), or L2 
output is suppressed when OF is en (line 
02: OF; line 01: 12 NOF) , because only 
constants are pnnteu. 

However, the time of execution in the 
program cycle differs: if the CF- 
specif icaticn output is performed, this 
takes place at overflow-output time; if the 
L2-specif icaticn output is performed, this 
cccurs at regular detail-output time. 
Therefore, if data from cards is to be 
printed, output at overflew time can only 
be from a preceding card, whereas output at 
detail time can be from the new card. 
Normally, when ccntrcl-level break and the 
overflow point coincide, the data frcm the 
new card is to be group-indicated. Thus, 
the CF line rather than the 12 line must be 
suppressed. This is illustrated in the 
second portion of Figure 51A. 



At detail time following an 12 control 
break the carriage skips tc the next 
channel- 1 punch, before the headings are 
printed (01 in eels. 19-20) . Thereafter, 
the form is advanced 3 spaces (3 in ccl. 
18). Since cois. 17-22 are blank in line 
02, the forms-ccntrol instructions are 
taken frcm the last preceding line (cf the 
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entries, i.e., line 01. 

Note: Output should net also be specified, 
in this application, before the first card 
has been read (at IP time) . This would 
cause printing of the constant data, fol- 
lowed by forms advance and another line cf 
the same constant data at detail-output 
time cf the first card (which is normally 
also the first card of an L2 Control-level 
break) . 



Explanation of Entries in Figure 51A — Part 
II 

This example is intended to be contrasted 
with Part I. Again, the form is to be 
advanced to a new page when either a Level- 
2 control break has occurred or overflow 
was signalled. 

However, instead cf constant heading 
data, the account number (contents of the 
field ACCT) of the pertinent card group is 
to be printed at the top cf each page. As 
specified in lines 07 and 08, this will 
operate correctly: 

Line 07: If the overflow indicator is on 
at overflow-output time, and no L2 control 
break has occurred (NL2 in Output Indica- 
tors) , the form is advanced (at overflow- 
output time) to the top of a new paqe. The 
account number from the previous card is 
then printed. Since no 1.2 control break 
has occurred, there must be at least one 
more card of the same control group; there- 
fore, the account number from the previous 
card is appropriate to identify the data 
that will fellow en that page. 

Line C8: If an 12 Control-Level break has 
occurred, the form is advanced (at detail- 
output time) to the top of a new paqe. At 
detail-output time, the ACCT field contains 
the account number from the first card of 
the new ccntrol group. This is the proper 
indentif ication for the data that will 
follow. 

Now note what would happen when overflow 
and L2 ccntrol break coincide, if OF were 
the only specification in Output Indicators 
in line 07, but 12 KCF were spcified in 
line C8: 

Duplication of page headinq is properly 
prevented; but--when L2 and OF are both 
on--the specificatiens in line 07 (not 
line 08) are executed. These are per- 
formed at overf low-cutput time, when the 
data frcm the first card of the new con- 
trol qroup is not yet in the process 
area. The account number at the top of 
the new paqe will be that of the last 
card of the previous ccntrol qroup; but 
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Figure 5 1B. Forirs Advance and Printing of Constants on First and Overflow Paqes 

the card data that will follow will be Two File-Indentif ication specifications 
from the new group. The group will thus lines are needed with this method. Part II 
be incorrectly identified. presents an alternate approach. 



Explanation cf Entries in Figure 51B-Part I 



This is a straightforward set of output 
specifications fcr printing the same con- 
stant data (e.g., the word ACCOUNT) at the 
top cf the first paqe (befcre the first 
data card has been read--1P is on) and at 
the top cf each overflow page (at overflow- 
output time) . 



Explanation of Entries in Figure 51B — Part 

II 

This illustrates use of the OF indicator in 
calculation specifications to accomplish 
the same as Part I, but without an OR line 
in the output-format specifications. 

The File-Indentif ication specifications 
(line 05, output-format specifications) 
cause the output to be performed at detail 
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cn before the first card has been read; 
therefore, the heading word ACCOUNT is 
printed in print positions 2-8 on the first 
page. 

The first detail-time calculation speci- 
fication (line 01, calculation specifica- 
tions) causes indicator 1P to turn on if 
the CF indicator is on. The OF indicator 
is on if a line was printed at or telcw the 
channel-12 punch during the preceding 
detail-time or total-time output of the 
same proqram cycle (see figure 6. EPG E ro - 
S£3m_Lccjic) . The output specifications in 
line 05 are then the first detail-time out- 
put operations performed in the next pro- 
gram cycle. 

Indicator IP is turned off again ty the 
EPG program after a new card has been read. 

Note that overflow-time output is net 
utilized at all with this programming 
approach. Because OF (or OV, respectively) 
is ncwhere specified in Output Indicators 
of a File-Indentif ication line, forms 
advance tc channel 1 is automatic after 
total-output time, if the overflow indica- 
tor is on. Therefore, Skip/Before (cols. 
19-20) must not contain 01; otherwise, the 
form is advanced to a second new page at 
the beginninq of detail-output time follow- 
ing overflew. 

Dua l- Feed Carriage (DFC)_ 

This is a special feature available for the 
IBM 2203 Printer equipped sith a 39-, 52-, 
or 63-character typebar. The DFC permits 
control of two different fcrms in one job 
run. Eacn xorm has its own forms— control 
carriaqe and the forms tractors of the two 
carriages are controlled independently, 
each having its own carriage-control tape. 

The overflow indicator OV is associated 
with the extra carriage, the so-called 
upper carriage. The overflow indicator OF 
remains associated with the standard, cr 
lower, carriage. 

Pairs of forms that are to contain 
information from a cemmon source — any, all, 
cr none cf which may apply tc both forms — 
can be printed in a single run with entire- 
ly different spacing and format require- 
ments. The two forms can be completely 
segregated side-by-side, cr they can be 
partially cr entirely overlapped. 

For example: payroll checks can te 
printed alongside a payroll register; cr 
the checks can be above cr beneath the 
register, with different spacing and fcrms- 
skipping. Similarly, invoices and an 
invoice register, cr invoices and shipping 
labels, can be handled side-by-side or par- 



Lxaxxy ui i. uxxy superxiiiposfcu . iFcjl runner 
details on the DFC feature see the publica- 
tion IBM Sy ste m/360 Model 20 , 2 203 Printer, 
Form A26-5926.) 

The forms controlled by the two car- 
riages are assigned separate output-file 
names in separate entries in the File 
Description Specifications, each name being 
associated through the Device code with a 
particular cne of the two carriages. 
Separate File-Identification and Field- 
Description entries for these two files are 
required in the cutput-f cr mat specifica- 
tions, when both files are to be used. The 
Field-Descripticn specifications may be 
different, or partially or wholly identic- 
al, when desired. 

The two files are basically two separate 
files. However, printing takes place con- 
currently for the two files (upper and 
lower carriage) — i.e., output is treated as 
though tc a single file, which can speed 
output considerably--if all four of the 
following conditions are satisfied: 

1. Output is specified for the same 
program-cycle segment (both D or H, or 
both T, in col . 1 5) . 

2. The specifications for the two files 
fcllcw each other in the output-format 
specifications, without intervening 
entries for any other output. (If out- 
put to the same two files is specified 
several times, the entries for the two 
files must be paired wherever they are 
to be treated as a single file for con- 
current output.) 

3. The entries in Output Indicators of 
File-Identification lines (though not 
necessarily of Field-Description lines) 
are identical for the two files. (Same 
overflow indicator for both files also 
satisfies this criterion.) 

Net only must the same indicators be 
specified alike (each preceded by "b or 
N, respectively, for both files) , but 
they must also te entered in the same 
crder. If there are AND and/or OR 
lines, the number of such lines, and 
their seguence and Output Indicators 
must correspond for the two files. 

(These requirements preclude simul- 
taneity cf output for the two files if 
different overflow indicators (OF and 
CV) are specified in Cutput Indicators 
of the File-Identification lines of the 
two files, or if one--but not the 
other--has one of these overflow indi- 
cators specified.) 

4. No Cutput Indicator in a File- 
Identification line is required to be 
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cff (Nxx) as a condition of output for 
these two files, if that indicator may 
turn en as output fields for the first 
file are transferred to the output area 
(see "Blank-After"). For example: 
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n Output Indicators of 
entificaticn lines for 

output field in a 
ipticn line cf the 
e two printer files; 
s specified for Field B 
ld-Descripticn line 

is assigned to "Zero or 
er (1) in Field Indica- 
specif ications) fcr 
(2) in Resulting Indi- 
culaticn specifica- 
Field E as Result Field 
metic cr TESTZ 



This could cause the indicator to 
turn en between output for the first 
and second files. Therefore, if an 
indicator has leen assigned in such 
manner, the twe dual-feed-carriage 
files are designated — at program- 
generation time--as two separate files 
whose output will be performed consecu- 
tively, but net concurrently. 

Concurrent printing can occur even 
though there are different Space and/cr 
Skip specificatiens (cols. 17-22) for the 
two files, provided that the other condi- 
tions (alcve) are met for treating the two 
output files as one. 

Forms cverfTow for each file conforms to 
the normal overflow operation of any print- 
er output file: 

1. If -fiCF is specified in Output Indica- 
tcrs cf any File-Identif icaticn line 
for the lower-feed file, no automatic 
overflow forms-advance occurs in that 
carriage. The particular qutput is 
performed at overflow-output time, and 
forms skipping to a new page must te 
expressly specified. The same is true 
for the upper-feed file-, if CV appears 
in any of its File-Identif icaticn 
lines. 

2. If t)CF (or 150V, respectively) does not 
appear as Output Indicator in any File- 
Identif icaticn line fcr the respective 
printer file, forms advance to channel 

1 is automatic fcr that file after 
total-output time, when the pertinent 
overflow indicator is en. 

If t)0F appears in File-Identification 
Output Indicators for the lower-feed print- 



er file, but OV does net appear for the 
upper-feed file, then overflow forms- 
skipping to channel 1 is automatic for the 
upper carriage but not the lower; and vice 
versa. If OF or OV is specified in File- 
Identification Output Indicators for the 
other file (i.e., CF with the upper-feed 
file and/or OV with the lower-feed file) , 
automatic overflow forms advance remains 
operative in that ether file; however, the 
output called for by the File- 
Identification and Field-Description speci- 
fications occurs at overflow-output time 
(not at detail- or tctal-output time) — even 
though, the overflow indicator is that of 
the other file. 

Figure 52 illustrates specificatiens for 
both files of a dual-feed carriage. For 
general information en overflow indicators 
and overflow forms advance see Overflo w 
Ind icators--OF, OV and Outpu t Indicators-- 
OF , OV , above. 
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Figure 52. Examples of Entries for Dual- 
Feed Carriaae Output 

Explanation of Entries in Fiqure 52 

It is assumed that one of the two file 
names (INVOICE or REGISTER) has been 
associated, in the File Description 
Specifications, with the upper-feed 
carriage (PRINTUF) , and the other with the 
lower-feed carriage (PRIN1LF or PRINTER) . 
Field names and print positions have been 
included fcr completeness; their use is 
explained more fully later. 

The specifications meet the criteria for 
concurrent printing to both files (i.e., 
the program consolidates the two files into 
one, at generation time) : 

1. Eoth file outputs are in the same 
program-cycle seqment (D in Col. 15); 

2. The specifications for the two files 
are contiguous; 
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3. Identical File-Identification Output 
Indicators are specified in equivalent 
positions, and AND- and CR-line entries 
correspond. 



U. It is assumed that neither indicator 14 
nor PR is assigned as Zero-or-Blank 
indicator to FIELDC (the only field in 
the first file with a Elank/After 
instruction) . 

Note that concurrent printing is still 
accomplished even though forms ccntrcl 
(cols. 17-22) may differ for the two 
files. 

Neither 01 nor OV is specified in File- 
Identification lines for the lower or 
upper-feed carriage, respectively. There- 
fore, printing is at detail time (D in col. 
15) — not at overflow-output time — and over- 
flow forms advance to channel 1 is automat- 
ic for bcth files. 

The contents of FIELD! (line 11) are 
enly printed if the OF indicator is also on 
at detail-output time. Note that indicator 
OF is in Output Indicators of a F iel d- 
Descripticn line, which dees not affect 
execution or timing of the cutput for the 
file (i.e., it does not cause cutput fcr 
the Jile tc te at overf lew-output time, or 
to be subject to the status of the OF indi- 
cator) . Similarly, the ccntents of FIELDC 
(line 06) are enly printed if the OV indi- 
cator is not on at detail-output time, 
(see alsc Output Indicators, under Field 
Descriptio n a n d_C c n t r o 1 , below.) 



Note that the print pesitions (End Posi- 
tion in Cutput Record) are continuous for 
the two files: only a single printer 
serves fcr output even though it is 
assigned two files; if fields for both 
files were designated to print in the same 
location en the print line, this would be 
tantamount to attempting tc print different 
information in the same pesitien at the 
same time. The program then overlays, in 
the cutput ccre-stcrage area, the data from 
the later line ever that of the earlier 
line, and only one character is printed in 
any one position. 

Of course, the entries fcr cutput pcsi- 
ticns in the two files need not be in 
sequence, so long as none of the cutput 
fields in cne overlap these in the ether. 
Even this restriction does net apply when 
it is knewn that the two files are never 
cutput at the same time--either (1) because 
Field- Description Output Indicatcrs are 
mutually exclusive, or (2) because output 
to the two files is not simultaneous. And, 
of course, the twe forms may be cverlapped, 
so that an output field may appear on both 
forms. 



FIELD DESCRIPTION AND CONTROL — COLS. 23-70 

One Field-Descripticn specifications line 
is needed per data field. Field- 
Description lines follow immediately 
beneath the File-Identification line (s) for 
the particular output operation. At least 
one Field-Descripticn line is required per 
File-Identification line (or group of 
lines, when there are AND or OR lines) . 

Each Field-Description line contains the 
information necessary to determine the out- 
put format of an individual field, its 
location in the output record, and any con- 
ditions restricting output of the field 
beyond the general restriction on cutput of 
the entire file. 



Output In dicators — Cols. 23-31 

(Field -Description Specifications) 

Entries in Cutput Indicators of a Field- 
Descripticn line follow the rules for Cut- 
put Indicators in File-Identification 
lines, with these differences: 

1. The indicator entries apply only to the 
field or constant described in the par- 
ticular Field-Description line — not to 
cutput of the entire file. They have 
no significance unless output to the 
file — as determined by the File- 
Identif icaticn specifications — takes 
place; then they represent additional 
restrictions on output of a field — 
subsidiary to the restriction in the 
File-Identification specifications on 
output to the file itself. 

Even if all field output for a file 
is suppressed in a proaram cycle (by 
virtue of the status of indicators in 
the Field-Description lines) , the file 
output still takes place if the Output 
Indicators in the File-Identification 
line have the appropriate setting. 
Therefore, for instance, .if file output 
to a card file takes place, but all 
field output is suppressed, the card is 
transported past the punch and print 
stations without being punched or 
printed; if the output file is the 
printer, a blank line is "printed", but 
fcrms movement is implemented as though 
data had been printed. 

2. Entry of an overflow indicator (OF, OV) 
has no effect on forms control, nor 
dees it cause the output to be shifted 

(from detail or total time) tc 
overflow-output time. Indicators OF 
and CV in Field-Description lines are 
treated like any other conditicnina 
indicators — for example: if OF is spec- 
ified, output of the field occurs only 
if the CF indicator is on at the time 
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output tc the file takes place; if NCF 
is specified, output cf the field is 
contingent en indicator CF being off. 

Cutput Indicators in an AND relation- 
ship in Field-Description Specifica- 
tions are limited to the three that can 
te accommodated in one line; AND lines 
are not permitted. (See Programming 
Tips, Fiaure E6I, for setting cf a 
single indicator to represent three AND 
conditions.) 

CF* lines as such are net permitted. 
However, the same cutput field may be 
repeated on successive lines, each time 
conditioned by a different indicatcr or 
combination cf indicators. The output 
for the field is then perfcrmed if the 
indicatcr conditions in at least one of 
the lines are satisfied. (Also see 
Prog ramm ing Tips, Figure E6(t), for 
setting cf a single indicatcr to repre- 
sent several OE conditions.) 
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Figure 53. Examples of Cutput Indicators 
for Field Description 
Specifications 



Field Selection 

Point 4, above, explains cutput cf the same 
field under CR cenditions. The same tech- 
nique can te applied to select one, from 
among several different fields, to be used 
for cutput tc cne lecaticn. 

If several different fields cf appropri- 
ate size and fcrmat are each conditioned by 
mutually exclusive Output Indicators, and 



all have the same entry in End Position in 
Cutput Record (see below) , at most one of 
these fields will be transferred to that 
cutput area. 

Figure 53 shows two sets of entries por- 
trayinq applications of Output Indicators 
for Field-Description lines. File- 
Identification, field-name entries, and End 
Position in Output Record have been 
included for the sake cf clarity. (Field 
names and output-record positions are more 
fully covered shortly.) The numbers to the 
left of the figure correspond to the 
explanatory sections that follow. 



Explanation of Entries in Figure 53 

Exam ple 

1. Assume that the file PRINT has been 

associated with the printer in the File 

Description Specifications. 

Printing takes places at detail- 
cutput time, provided indicator 44 is 
on. Five fields are printed: 

The contents cf INV# and AhCUNT are 
printed each time the file output 
takes place. 
Besides output beina subject to 

indicator 44: 
The contents of the field SALSMN are 
printed only either 

(a) when the L2 indicator is on at 
detail-output time — the standard 
method for group-indicating a 
field on the first card follow- 
ing a Level-2 control break; or 

(b) when the overflow indicator is 
en at detail-output time — the 

standard method for groups — 

indicating a field on the first 
printed line of an overflow 
page, when overflow-output time 
is not utilized (OF is not 
assianed in Output Indicators of 
tne File - Identification 
specifications) . 

SALSMN is further conditioned to 
print on the first line of an overflow 
page only if indicator 05 is then not 
en. 
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output time — the standard me 

group-indicating on the firs 

control group. 

The contents of the field 
printed (subject to indicate 
if indicators 25 and 02 are 
indicator 16 is off. 

This is an example of the 
three indicators in an AND 
relationship. 

The overflow indicator (0 
is net specified in Cutput I 
of a File-Tdentif icaticn lin 
fore, overflew forms advance 
1 is automatic. 

Exam ple 

2. Assume that (1) the file PRI 
associated with the printer 
Description Specif icatiens, 
tor 04 represents a heading 
lowed by a group of listed d 
cards, (3) printing cf seme 
tc be suppressed when printi 
on overflow pages, and (4) I 
(INVCIC) is to be replaced b 
Memo Ho. (CRMFH) when indie 
en ("field selection") . 
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overflow point and the 
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Cutput Indicators; oth 
overflow signal coinci 
heading card, the head 
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the old (completed) gr 
overflow-output time, 
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Field s elect ion is performed between 
the fields INVOIC and CRMEM: one or 
the other is transferred to the same 
output area, depending en the status of 
indicator 85. (If the field CRMEH is 
no shorter than INVOIC, N85 in line 14 
is not needed: the data from CRMEM 
would be overlaid over the INVOIC data 
if indicator 85 is on.) 

Before a new heading card or an 
cverf low-page heading is printed, the 
form is advanced to the top of a new 
page (01 in cols. 19-20); after print- 
ing of the heading, it is skipped to 
the nearest channel-2 punch. 



WAR 
be mad 
the ov 
the re 
occur 
reguir 
here ( 
f icati 
and th 
suppre 

The 
suppre 
(see 1 
overf i 
either 
tion t 
is to 
exampl 
indica 
not to 
exampl 



NING 

e fo 

erfl 

adin 

in t 

emen 

i.e. 

ens 

e pr 

ssed 



: An 
r the 
ow si 
g of 
he sa 
ts pa 
, the 
are i 
intin 
for 



import 
applic 
anal (c 
a new h 
me cycl 
rallel 

two f i 
n an OR 
g of ce 
overf lc 



ant poi 
ations 
hannel 
eading 
e, and 
those e 
le outp 
relati 
rtain f 
w outpu 



nt should 
in which 
12) and 
card can 
the output 
xemplif ied 
ut speci- 
enship, 
ields is 
t) : 



proarammer has the choice of 
ssinq the printing cf some fields 
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(1) the indicator of the condi- 
o which the printing of the field 
be restricted (04 in this 
e) , or (2) the negative of the 
ter that is on when the field is 

be printed (NOF in this 
e) . 



As illustrated--with indicator 04 in 
the pertinent Field-Description lines — 
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the application will wcrk, even when Output fields need not be recorded in 

overflew and a type-04 card coincide. the seguence in which their data is to 

appear in the output record; that sequence 
is determined by entries in cols. 41-43 

Hcwever, if NOF (in place of 04) (End Position in Output Record) . 
were specified in lines 12, 13, and 16, 

the application would work correctly The seguence in which the fields are 
during each overflow heading, and for specified can nevertheless be important 
the printing from each type-04 heading under some circumstances — principally when 
card — but the latter enly if overflow Blank-After is specified (col. 39): with 
was not signalled during the same pro- one exception (below) , fields are trans- 
gram cycle in which the new headinq ferred for output to the designated (cols, 
card was read. The reason is that — 41-43) location of the output core-storaqe 
although overflow output is not area in the order in which they are record- 
executed (because N04 is entered in ed (under the File-Identification specifi- 
line 10) if overflow was signalled in catiens) .- Therefore: 

the same cycle in which a new heading If successively specified output fields 
card was read — the overflow indicator are assigned partially or completely 
is nevertheless still en at detail- overlapping positions in the output 
cutput time, when the new heading-card record (i.e., based on entries in cols, 
data is printed. In that situation, 41-43), the data from the field speci- 
the cutput from the fields ORDER, fied later (lower down) replaces any 
SALStfN, and DATE would be suppressed — by data in the same output-area positions 
NOF--when the new heading card is of a field recorded hiqher up. (The 
printed. same applies regardless of whether the 
field name is the same or different — it 



is possible for the contents of the same 

Field Name — Cols. 32-37 field to change during output, by a 

Blank-After instruction.) 
Entry of a field name here designates the Of course, if several Field- 
contents of that field fcr output—forms Description entries specify transfer to 
printing, card punching, or document- the same output record area, but only 
printing — subject to Output Indicators in one of the transfers is executed because 
this Field-Description line and in the pre- of either (1) mutually exclusive Output 
ceding File Identificaticn. The output Indicators, or (2) association with dif- 
device (printer or card punch) is deter- ferent program-cycle segments, no over- 
mined by the file name (see File, Name, lay problem exists, 
above). The location of the data in the out- 
put record is determined by the entry in Ex ception: 

eels. 41-43. When card document-printing (inter- 
preting) and punching are both speci- 

" The field name is entered le-ft— a li-g-ned f-iedr-fo-r the same car dr fu-nde-r o-n-e 

(to begin in ccl. 32) . With cne possible File-Identification specification) , 

exception (PAGE--see Ccnsecutive. Numbering, then transfer of the data of all 

below) , the name must have been previously appropriate fields to the output 

defined in the input specifications (Field punch-storage area precedes transfer 

Name), file-extension specifications (Table to the card-print output storage area. 

Name), or the calculaticn specifications This calls for caution in the use of 

(Result Field) . Blank-After instructions with such 

fields. 
All previously defined field names are 

permitted, except the following: If, instead of the contents of a field, 

ALTSEC, a name that begins with CCNTD, a constant is to be transferred to the 

or core-storage area for the output-record 

PAGE followed by cne cr two characters. location specified in cols. 41-43, Field 

The field name PAGE itself has a special Name (cols. 32-37) is left blank. (See 

significance (see Consecutive Number;- Constant T below.) 
ijng, below) . 

Fiqures 5E and F, 51A and B, 52 and 53 

If the field name corresponds tc the already illustrated the use of output field 

name cf a table (TAExxx) defined in the names and constants. Several further 

file extension specif icatiens, the output examples appear in Figures 54A and B. 
consists of the contents of the "hold" area 
for that table — i.e., normally "the data 

selected from the table in the last LCKUP Consecutive-Numbering (Page Numberinq) 
operation. (Fcr details, see Table I cck- Up 

Oper at ions, under Calculation RPG provides automatic page numbering or 

Specifications . ) consecutive card-numberinq simply by usinq 
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PAGE 'in eels. 3°— 35* as "the name of an 
output field for the pertinent file. 

Only cne page- or consecutive-numbering 
field can be set up in this manner. If 
serial numbers are needed for several cut- 
put files — such as both files cf a dual- 
feed' car riage, or a printer file and a card 
file, etc. — numbering of the additional 
files must be handled with another field 
name and use of calculation specifications. 

The field named PAGE is tasically 
treated like any other output field: 

1. Output of the field is contingent en 
cutput to the file; i.e., the condi- 
tions set up by entries in Type (ccl. 
15) and Output Indicators of Fiie- 
Identif icaticn lines must be satisfied; 

2. The contents cf the. PAGE field are 
tranferred tc the prcper output core- 
storage area to appear in the output 
record in the lecatien specified in 
cols. 41-43; and 

3. The contents of the PAGE field may be 
printed en report forms, document- 
printed en cards, or punched intc 
cards. 

However, the PAGE field differs in ether 
siqnificant respects: 

1. The contents of the field are always 
incremented by +1 (by the RPG program 
itself) immediately before output from 
the field. (At the beginning cf 

cb ject-program execution, the field 
ccntains zeros.) 

Therefore, if PAGE appears only in 
the cutput-f crmat specifications, cut- 

0001; the second time, it is CCOl; etc. 

If a value was entered into the PAGE 
field from an input card (see Consecu- 
tive Numbering—Header. Cards, under ~" 
Input Speci fications) or by calculation 
specifications, whatever value stands 
in the field at time cf output is 
incremented by +1 before output. Thus, 
if (fcr example) the mest recent entry 
in the field PAGE frcm an input card 
was 1000, and 25 was subtracted frcm 
PAGE by a calculation instruction, cut- 
put will be C976. The next output 
(assuming no new input or calculation 
specifications changes tc the field) 
will be 97"?; etc. 

If the PAGE field is used as cutput 
several times in cne program cycle, the 
number is incremented before each 
output . 

2. The field is always numeric, and 4 
digits leng. 

3. The lew-order position is always signed 

(normally plus, although minus is pes- 
sifcle if a negative number was entered 
frcm a card or in calculation 



Zero Suppress or an edit word may be 
specified (see Zero Suppress and Edit 
Wcrd, below). If this is net done, 
leading zeros will be printed or 
punched for numbers of less than four 
significant digits, and the low-order 
position will be signed: ^when punch- 
ing, the low-order position will then 
contain a 12- or 1 1-overpunch ; when 
printing, the character will be as 
shewn in the EECEIC-table column 
labelled C or D, respectively. Depend- 
ing en the typebar, chain, train, or 
MFCM print-mechanism set of graphics, a 
signed zero may only print a plus or 
minus sign, or the position may remain 
blank. Normally, when printing paqe 
numbers, Zero Suppress (Z in col. 38) 
is specified to eliminate the leading 
zeros, and avoid zoning by the plus 
sign. 

4. Cutput Indicators cannot be assigned in 
a PAGE Field-Description line to make 
output of the field subject to the sta- 
tus of indicators. Field Cutput takes 
place whenever cutput to the file is 
performed. 

5. Output Indicators may be designated in 
a PAGE Field-Description line, and — 
when output to the file is performed 
(subject to File-Identification Cutput 
Indicators) --have the following effect: 

(a) If not all assigned indicators are 
in the designated states (on, or 
net on, as specified) : no effect. 

(b) If all assigned indicators have 
the status stipulated (on, or not 
on, as specified) : 

The PAGE field is set to zero 
before being incremented by 1, 
both prior to output. Output is 
then 000*. 

Note: Blank-After (col. 39) is 
also a permitted method for reset- 
ting the PAGE field tc zero; but it 
is usually awkward in practice to 
set up the ccntrcl to execute this 
reset at the desired time only. 



Figure 25 and its accompanying text 
explain how to employ input cards to initi- 
ate a series of numbers for the PAGE field 
with any desired 4-digit value at any point 
of an input (or combined-file) deck. 
Figure 54A includes specifications to print 
cutput frcm the PAGE field. 

Zer o S uppress (Z ) -- Cc l . 3 8 

This column must be left blank if: 

1. The field is defined as alphameric (in 
the input, calculation, or file exten- 
sion specifications) ; or 

2. The Field-Description line applies to a 
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constant, in eels. 45-70 (see Con; 
stant, below); i.e., when cols. 32-37 
are fclank because output dees not refer 
to the contents of a named field; cr 

3. Editing is specified by an edit word, 
in eels. 45-70 (see Edit Word, belcw) ; 
cr 

4. Packed Field is specified for output (P 
in ccl. 44) ; cr 

5. The field does net consist only cf 
valid digits (0-9) ,except for a sign 
permitted in the lew-crder position. 

If none of the above applies, the letter 
Z may te entered in ccl. 38 of a Field- 
Descripticn line for a field that has teen 
defined as numeric. Specifying Z has two 
effects en the format of the output: 

1. Elanks are substituted for leading 

(non-significant) zeros; and 

2. Zone tits are removed frcm the lcw- 
crder (rightmost) position cf the field 
(i.e., the character is assigned the 

corresponding position, in the same 
row, in EBCDIC-table column labelled 

A numeric field is zoned in its low- 
order position if (a) it was zoned in 
that position when read in, cr (t) a 
Field Indicator was assigned to it in 
the input specifications, cr (c) it was 
a Eesult Field in an arithmetic opera- 
tion, or (d) a zene was moved to that 
position in calculation specifications, 
or (e) the input field was blank, or 
(f) the field was cleared by a Blank- 
After specification. 
The Z specification affects only the 
output determined in the particular Field- 
Description line; it dees not modify the 
form in "which the" data is stored "at"" the 
field location. Therefore, Z may fce desig- 
nated in an output line for a field without 
affecting the format of output for the same 
field in a subseguent Field-Description 
line (this confined effect is in contrast 
to the consequences cf specifying Blank- 
After for a f ield--see belcw) . 
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net usually edited 
n ccl. 38, because 
mally to be 
iting, a negative 
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read in with a 1 2-cver punch, if a Field 
Indicator was assigned and the field con- 
tents were positive or zero, if it was a 
positive or zero Result Field in an arith- 
metic operation, or if a C-zone was trans- 
ferred to it in some other calculation 
operation, if the input field was blank, 
or the field was cleared by a Blank- 
After specification). 

If the 12-overpunch is not 
desired, it can te removed prior to punch- 
ing (see next paragraph, and Pr cgramming 
Tip s) . 

Te provide complete flexibility of edit- 
ing fcr printing and punching, two other 
methods are available: 



1. 
2. 



Editina by Edit 
limited editing 
catiens (see Cal 
tions, above) : 
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Word (see below) ; and 
by calculation specifi- 
cs rations Specifica- 



e removed from the low- 
on of a numeric field 
y character shewn in 

column F (e.g., any of 
-9) to that position by 
IT Z0 operation. The 

Figure 42, in conjunc- 
ne 06 in Figure 43, 
this. (See also Pro- 
s') 

s can be changed to 
ving the numeric field 
eric field, and then 
anks by a MOVED opera- 
ppropriate number of 
ons can be determined 
other calculation 



The Z spec if"rcra"t ion has been iilTrsIrr aired in 
Figures 52 and 53. Further examples appear 
in Figures 54A and E. 

Blank After (B) — Co l. 39 
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Description line — even if that transfer 
involves the same field — and it is blank or 
zero at the time any subsequent Pile- 
Identification specifications in the same 
prcaram-cycle segment are executed. 
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re, if output frcm the same field 
d several times (e.g., to several 
, for forms-printing, card punch- 
r card document-printing) , care 
plied to designate the B in col. 

the last of the pertinent File- 
tion and Field-Descripticn lines: 
ed above, under F iel d N ame , 

transferred to the output core- 
ea in the seguence in which they 
the output-format specifications. 
f card dccument-printing (inter- 
nd card punching are both speci- 
he same fields (under one File- 
tion specification) , all trans- 
unching are performed first. In 
tion, any Blank-After specifica- 
d be in the last Field- 
n line that specifies card docu- 
inq for that field. 



Note: If the output line pertains to a 
constant in cols. 45-70 (i.e., Field Name, 
cols. 32-37, is blank), the core-storaae 
area that contains the constant is set to 
blanks by the Blank-After instruction. It 
remains blank thereafter until the object 
proaram deck is reloaded, or the program is 
reaenerated . 



Relationship of Indicators to Blank After 

A Field Indicator or Resulting Indicator 
assigned to "Zero or Blank" turns on imme- 
diately when that same field is cleared by 
a Blank-After instruction during output. 
This applies to indicators assigned to 
"Zero or Elank": 

1. In Field Indicators in the input 
specifications — cols. 69-70; and 

2. In Resulting Indicators in the calcula- 
tion specif ications--cols. 58-59--for 
arithmetic or test-zone operations 
(specifically: ADD, Z-ADD, SUB, Z-SUB, 
MUIT, DIV, MVR, TESTZ) . 



However, the fact that the Blank-After 
instruction may turn on an indicator for a 
field does not cause any other indicator 
for that field to turn off. For example, 
assume: 

Indicator 25 assianed to Minus (eels. 
67-68) in Field Indicators for 
FLEA, in input specifications; 



Indicator 20 assianed tc Zero or Blank 
(cols. 69-70) in Field Indicators 
for same field (FTEA); 



The field is negative at input time. 
Therefore, indicator 25 turned on 
when the input data was transferred 
to the process area before detail- 
calculation time. 



At detail-output time for FLDA, Blank- 
After is specified for FLDA. 



Then: immediately after transfer of 
FLDA at detail -output time, indica- 

i_i_ij_ z.u Luj.Ua uuj jjuu uml^ttLUL zD 

also remains on (unless previously 
turned off by a calculation 
specification) . 



Once an indicator 
Blank" has been turn 
instruction, it cann 
during the same outp 
ment (the earliest p 
tion time during the 
segment, setting of 
detail-calculation t 
for certain indicato 
has been read follow 
time) . Therefore, t 
realize that the ind 
guent Field-Descript 
Identification speci 
conditioned by its s 
no longer change exe 
File- Identification 
transfer to the outp 
same Field-Descripti 



assigned to "Zero or 
ed on by a Blank-After 
ot be turned off again 
ut program-cycle seg- 
ossibility is calcula- 

next program-cycle 
Field Indicators before 
ime, or automatic reset 
rs after the next card 
ing detail-output 
he proqrammer must 
icator is en for subse- 
ion and File- 
fications which may be 
tatus (it can, however, 
cuticn of the same 
specifications, or the 
ut area of data in the 
on line) . 



Note: If more than on 
assiqned to Zero-or-Bl 
field in different spe 
Blank-After causes onl 
assigned indicator to 
al l of the different i 
Zero-or-Blank for the 
cators or calculation 
of arithmetic or TESTZ 
at the beginning of pr 



e indicator is 
ank for the same 
cification lines, 
y the earliest- 
turn on. (However, 
ndicators assiqned to 
field, in Field Indi- 
Resulting Indicators 

operations, are on 
ogram execution.) 



Blank After has been illustrated in 
Figures 5E, 5F, and 52. Further examples 
are included in Figures 54A and B. 

The subject of indicators, as related to 
Blank-After, is also discussed in Program 
Logic Flow, under Input, Specifications, and 
under Calcul ation Specifications . 

End_ Posit ign_in_Output_Record z ^Cols^ 40-4 3 

This entry (riqht- justified in cols. 
41-43) desiqnates the location of the field 
or constant in the output record. Only the 
location of the riqhtmost character of the 
"field" cr constant is specified. 

"Field", in this case, includes any 
extension due to an edit word (see Edi t 
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Word, belcw) 

46-69) exten 

the field, E 

refers tc th 

edit word. 

Assume 

lcw- 

prin 

Assume 

deci 

and 

comm 

sand 

blan 

digi 

neqa 

an a 

pcsi 

The max 

this 



: if an edit 
ds tc the righ 
nd Position in 
e rightmost pc 
For example: 
a seven-digit 
order position 
t position 10; 
an edit word t 
mal point betw 
cents position 
a between hund 
s cf dollars, 
k to the right 
t, followed by 
tive amounts, 
sterisk to the 
tion . 

imum printout 
: xx,xxx.xxtC 



word (cols, 
t cf the data in 
Output Record 

siticn cf the 

field, with its 
to be printed in 

hat (1) inserts a 
een the dollars 
, (2) inserts a 
reds and thct- 
(3) allows a 
of the low-crder 
a CE symbol for 
and (4) provides 
right of the CE 

then looks like 



print position 10 
Therefore, End Position in Output 
Eecord is 14. 

Note that, due tc symbols (e.g., decimal 
point and commas) and characters that may 
be inserted by edit words, the field may 
expand to the left (as well as tc the 
riaht) . In the above example, a field 
which, unedited, wculd occupy print posi- 
tions 4-10, occupies print positions 2-14 
when that particular edit wcrd is speci- 
fied. Therefore, whenever fields are 
edited, care must be applied — when assign- 
ing End Position in Output Record—that 
successive fields are not unintentionally 
overlapped. (Data frcm the field trans- 
ferred tc the output core-storage area 
later replaces any data in the same area 
from an earlier transfer—see fAel<l_Name 
and Elank_ After, above, for sequence of"" 
transfers. ) 

Zeros in cols. 41-43 may be entered or 
emitted. (Col. 40 does net apply tc card 
EPG, and may be left blank or coded zero.) 



JCard Dccument-Printinq (Interpreting) 
• Specifications (Cols. 4 1-43)--Special fea- 
Jture, available enly on the 2560 MFCM Model 
JA1, attached to an IEM System/360 Hcdel 20, 
•Submodel 1 or 2. 

The file name (cols. 7-14) identifies the 
output device. Thus, End Position in Cut- 
put Record (cols. 40-43) refers to the 
printer if the file name was associated, in 
the f ile-descripticn specifications, with 
the printer; it refers to a specific card 
processing device, if that was the associa- 
tion formed in the f ile-descripticn 
specifications. 

However, the f ile-descripticn specifica- 
tions cannot make a distinction between 
punching intc, or printing on, a card in 



the MFCM. (If the two functions were to be 
distinguished as separate files, it would 
not be possible to punch and interpret the 
same cards in a single pass.) Therefore, 
if the file name is associated with the 
MFCM, output to be punched is distinguished 
from output to be card-decument-printed 
(interpreted) by the entry in End Position 
in Output Record. 

Since End Position in Output Eecord can- 
not be greater than 80 for punch cards, the 
hundreds position (col. 41) is used to 
distinguish between punching and 
interpreting: 

Col. 41 = or *: output is punched. 
Col. 41 = 1-6: output is document- 
printed on the card by 
print head 1-6, 
respectively . 

Note: If card document-printing is speci- 
fied, the appropriate instructions are 
generated. If the object program is then 
executed en a MFCM that is not equipped 
with the card document-print special fea- 
ture, the proqram performs all other opera- 
tions in the normal manner but, of course, 
no document-printinq takes place. 

If card document-printinq is specified 
for more print heads than are installed on 
the MFCM on which the object proqram is 
run, document-printinq is performed as spec- 
ified for the available print heads. 

The entry in cols. 42-43 represents the 
riqhtmost location occupied by the low- 
order position of the "field" (includinq 
any extension throuqh an edit word) in the 
card, in either case (punchinq or inter- 
pretinq) . The maximum value (i.e., riqht- 
most location) possible Is: 

1. 80 for card punchinq 

2. 64 for card document-printinq 
(interpretinq) 



Punchinq, and int 
lines (dependinq on 
installed) , may be p 
card durinq a sinqle 
throuqh the system, 
and interpretinq for 
ified under a sinqle 
line (or qrcup of AN 
Field-Description li 
interpretinq may app 
the File-Identif icat 
File Identification, 
is always transferre 
the output core-stor 
data for interpretin 
Blank-After (see abo 
field that is to be 
preted, the B in ecl 
in the (last) line t 
preting for that fie 
field is already bla 



erpreting of one to six 
the features 
erformed in the same 

pass of the deck 

However, all punching 
one card must be spec- 

File-Identif icat ion 
D or OB lines) . The 
nes for punching and 
ear in any order under 
ion line; but, for one 

all data for punching 
d (by the program) to 
age area ahead of the 
g. Therefore, if 
ve) is specified for a 
punched and inter- 

39 must be entered 
hat specifies inter- 
Id; otherwise, the 
nk or zero before 
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transfer to tne output area tcr anterpret- 
inq. If the same field is to fce inter- 
preted mere than once, Blank-After should 
be specified in the last line that speci- 
fies interpreting for that field: the 
fields fcr interpreting are transferred to 
the output area in the sequence in which 
they are specified in Field-Description 
lines, regardless cf print-head number. 



Note: Cther things being e.gual, output 
time is conserved if: 

1 . Cn serial munches, n unchin n and inter- 
preting is concentrated at the left end 
of the card--output speed is inversely 
correlated with the number of the last 
column punched or last position 
printed. 

Often, it is possible to confine 
interpreting to the left end of the 
card by card-printing data on several 
lines concurrently, by utilizing sever- 
al print heads. 

2. Printing on the printer can be confined 
tc the first (leftmost) 100 print 
positions. 

This is of value only if it can be 
adhered to for the entire jot, sc that 
the RPG Control Card (card H) can te 
left blank, or punched 100, in eels. 
23-2 5 (see the publications IBM System/ 
360 Repo rt P r o g_ r am Gene rator for P u n c h - 
Ca rd Equ ipment, Operating. Procedures, 
Form C26-3800) . 



Entries in End Position in Output Record 
have already been illustrated in Figures 
5E, 5F, 51A, 51B, 52, and 53. Further 
examples, including specifications for 
interpreting, appear in Figures 54A and B. 

Note : The output storage area is cleared 
by the program after each pertinent output 
operation. 



Pa ck ed Field (P) — Col. 44 

A field defined as numeric is stored, at 
its field-name lecation, in packed format 
(see Data Formats, Appendix D) . If col. 
44 is left blank, numeric data moved tc the 
output cere-storage area is unpacked during 
this transfer. This causes the data tc 
appear in cards and cn printed reports in 
customary form — one diqit per column or 
print positicn (with the lew-order position 
possibly signed) . 

If P is entered in col. 44, the 
(numeric) field is transferred tc the cut- 
put storage area in its packed format — two 
digits (cne per half-byte) per column (or 
print positicn) , represented by the EBCDIC 
characters for the particular combinations 
of two digits. The low-crder position con- 
tains the EBCDIC character for the lcw- 



oraer aiqit ana siqn (wnxen may arso ce 
hexadecimal F, for "no sign"). 

Packed output has a field length slight- 
ly larger than half that of an unpacked 
field. (It is greater than half the 
unpacked field size because the siqn posi- 
tion requires a half-byte, and only com- 
plete bytes are permissible.) The formula 
is : 

n + l + E 
T.p = , where 



Lp = number of positions in the packed 
output field 

n = field length defined in: 

a. input specifications of 
unpacked input field (Field 
Location) , or 

b. calculation specifications 

(Field Length), or 

c. file-extension specifications 
(Length of Table Entry) 

E = 0, if n is odd; or 

= 1, if n is even. 

When specifying End Position in Output 
Record, the reduced length of a packed 
numeric output field should be taken into 
account. 

Packed output is intended as an optional 
format for punching into cards: 

1. Cn a serial punch it may expedite 
throughput, if punching can be ter- 
minated at a lower column number 
because the data fits into fewer 
columns. 

2. It may significantly reduce punch time 
if, as a result cf packed output, the 
data fits into fewer cards. 

3. It may reduce subsequent card handling 
if, as a result cf packed output, fewer 
cards are required. 

4. It may speed subsequent input, if the 
number cf cards has been reduced as a 
result cf previous packed output. 

(See also Packed--Col .' 43, under Input 

Specif ic ations . ) 

It shculd be pointed cut, however, that 
numeric data punched in packed format is 
difficult tc decipher (without a conversion 
table) by visual inspection of a card, and 
still awkward to read even with reference 
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to the EBCDIC table (see Appendix D) . 
Sortinq en packed-decimal fields alsc pre- 
sents special problems. 



While it is permitted tc specify P for 
printed numeric output (tc the printer or 
for card document-printing) , this is net 
practical because: 

1. Many of the EBCDIC characters that 
represent the combination of two digits 
(one per half-byte) have no correspond- 
ing graphics in the chain, train, type- 
bar, cr MFCM print mechanism; and 

2. It is awkward to relate any graphics 
that are printed to a particular two 
digits. 



Packed Field (P in col. 44) must net be 
specified: 

1. For a constant 

2. For an alphameric field 

3. If Zero Suppress or an edit word is 
specified. 

Figure 54E includes illustration cf the 
Packed-Field specification. 



Constant or Edit Word — Ccls 



45-7C 



An entry in cols. 45-70 respresents a con- 
stant if Field Name (ccls. 32-37) is 
blank; it represents an edit word if a 
Field Name is specified. 

Although both items are specified in the 
same field, their uses are guite distinct. 
They are therefore treated separately, 
below. 



enclosed in apostrophes (card punch- 
combination 5-8) . Ccl. 45 must contain an 
apostrophe. The constant itself always 
begins in col. 46 (even if that column is 
blank) and ends in the column preceding the 
next single apostrophe. An apostrophe 
desired within the constant itself is 
represented by two successive apostrophes. 
(For further details on alphameric 
literals, see Al phameric. literals, under 
De finition of Terms and under Calculation 
Specifications.) Of course, numeric data 
also may be used as a constant, by treating 
it as an alphameric literal enclosed in 
apostrophes. 

Because only 26 columns are available 
for a constant in one Field-Description 
line, and two delimiting apostrophes are 
reguired, the maximum length of a constant 
is 24 positions. Under the Input Specifi- 
cations, a method is described for reading 
longer constants in frcm a card (see Using 
Input D ata Fie ld s fo r Constant Data — 
Heading Cards) . A longer constant for out- 
put can also be simulated by continuing the 
constant in another Field-Description line 
(see Figure 54A) . 

A constant is stored only once by the 
program (i.e., consumes core-storage space 
only once) , irrespective of the number of 
Field-Description lines in which it is spe- 
cified. (Consequently, a constant is 
blanked for the remainder of the job once 
it has been transferred to the output 
storage area by specifications in any 
Field-Description line in which Blank-After 
(B in col^ 39) is specified.) 

Note: 



Constant — Cols, 



45-70 



If Field Name (ccls. 32-37) is left 
blank, the actual data in the "Constant or 
Fdit Word" field — instead cf the ccntents 
of a named field — is moved to the output 
core-storage area for the cutput-reccrd 
location specified in cols. 41-43. This 
is a convenient method of placing into the 
object program any data that does not 
change troughout the job, nor from one pro- 
cessing cf the program tc another. The 
most comircn use cf constants is for report 
and report-column headings, and for punch- 
ing a fixed indentif icaticr into cutput 
cards. 

Any of the 256 EBCDIC characters 
(including blank) may be specified in this 
field. A constant is always censidered an 
alphameric literal and must, therefore, be 



1. Zero Suppress (Z in ccl. 38) must not 
be specified in the same line as a 
constant. 

2. Field Name (cols. 32-37) must be blank 
if a constant is entered in cols. 
45-70; otherwise, the constant is 
instead assumed to be an edit word (see 
below) . 

3. Packed Field (P in col. 44) must not 
be specified for output of a constant. 

Figures 54A and E illustrate constants, 
as well as Packed-Field specifications, End 
Position in Output Eecord, Elank-After, and 
Zero Suppress. The examples were chosen to 
maximize clarification, and are not neces- 
sarily a natural seguence of specifica- 
tions. (Figures 54A and B should be consi- 
dered as independent of each other.) 



198 System/36C Model 20 CPS Report Prcgram Generator 



IBM 






INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM System/360 



Punching 
Instruction 


Graphic 










1 




Punch 










j 





m 



nr 



line 


| 


Filename 

? 3 9 10 11 12 13 14 




16 


_ 


sir 


Output 
Indicator* 


Field 
Name 

32 33 34 35 36 37 


38 


5 

39 


End 
PosI;ien 
In Output 
Record 

40 41 42 43 


3 

| 


Constant or Edit Word 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 


Sterling 

Sign 
Position 

71 72 73 74 


5 

S 


1 

18 


2 

19 20 


< 

21 22 


And And 


Z 

23 24 25 


z 

26 27 23 


z 

29 30 31 


1 


o 


PRI NT 


D 






2 


01 




L2 




















2 


o 





* 












OF 


ML 2 


















3 


o 




























5U 




'sales analysis by custom 1 




4 


o 




























0078 




' ER AND SALESMAN FOR MONT* 




S 


o 




























082 




! H 0F ! 




6 


o 






















DATE 






91 








1 


o 
















L3 






PAGE 


z 




120 








6 


o 




D 










02 


L2 




















a 9 


o 


a 


R 












OF 


NL2 


















1 


o 




























28 




1 Amount 1 




1 1 


o 




























19 




' SLSMN ACCOUNT 1 




1 2 


o 




























L6 




'12.5' 




1 1 


o 




























60 




'15.0« 




1 4 


o 




T 






1 






Ll 




















1 S 


o 






















ACCNT 


z 




19 








16 


o 






















SALSMIM 






1* 








17 


o 






















AMOUNT 




B 


30 




',*.-' 




ie 


o 






















COM12 


z 


B 


l*.© 








19 


o 






















COM15 


z 


B 


62 








20 


o 

1 1 
















N05 






TAB BON 


z 




70 









Card Electro Number . 



Figure 54A. Some Examples cf Entries for Field Name, PAGE Number, Zero Suppress, Blank 
After, End Position in Cutput Record, and Constant 



Explanation of Entries in Figure 54A 

The file named PRINT is assumed to have 
been associated with the printer, in the 
file-description specifications. 

Spe cifications lines 0_1_and_02 cause the 
output fcr lines 03-07 tc he performed at 
detail-ottput time if indicator L2 is then 
en, cr at overflow-output time if indicator 
OF is on and L2 is net on (NL2 is specified 
to prevent duplication of cutput when CF 
and L2 turn on in the same program cycle) . 
The form is advanced to the next carriage- 
control tape punch in channel 1 tefore out- 
put, and is spaced 2 lines afterwards. 

Line s 03, 04, and 05 show how a report 
heading that is 52 positions long can he 
printed, by specification of constants, as 
one continuous phrase--even though an indi- 
vidual constant is limited to a maximum of 
24 positions. (An alternative, involving 
an input card, is presented under Input 
Specifications : Using Input Data Fields 
for Co nstantData — Heading Cards . ) 



line 06 indicates how data that changes 
each time the report is run, and may change 
at points during the run, can be printed as 
parts of a constant report heading, on the 
same print line. 
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Cards . ) 

line 07 causes four-digit consecutive page 
numbers to be printed at the top of each 
page, in print positions 117-120. Leading 
zeros are suppressed, and the zone over the 
units position is eliminated from the 
print-out. The number is printed on the 
first page as -frbfil, unless a special start- 



Output-Format Specifications (Optional) 199 



ing number was entered (see Input Specifi- 
cations; Ccnsecutive Numbering) and/cr the 
number was modified or created by calcula- 
tion specifications. 



The number starts again with 1 when the 
13 indicator is en at the time of PAGE 
output. 

Tines 08-09 provide for printing a secend 
h"eadinq line, two lines below the first 
headinq line (2 in ccl. 18 of specifica- 
tion line 01), under the same conditions 
(L2 or OF NL2) , and in the same program 
cycle. Whereas the entries in lines 03-07 
provided for report heading and page num- 
ber, lines 10-13 contain specifications for 
column headings. After this output, the 
form is advanced to the next channel-2 
punch. , 

Line 1J illustrates that one constant may 

contain mere than cne column heading 
(StSHAN and ACCOUNT) — it is merely a matter 
of convenience and appropriate spacing. 

Also shown is the fact that a constant 
may start with blanks, tc align it 
appropriately. 

Line s 10 a nd 1 1 show alsc that fields cr 
constants need net be recorded in the 
seguence in which the data is to appear in 
the output record (End Position in Output 
Record: 28 is in an earlier specification 
line than 19) . 

In lines 10, 12, and 13 we chose tc use 

separate lines for each column heading, 
rather than combining seme as in line 11. 

L ine s 12 and 13 also illustrate that con- 
stants, which are alphameric literals, may 
contain numeric values. 

Note, throughout, that Field Name (Ccls. 
32-37) is blank where a constant is 
assigned . 

Line 14 calls for a group-printed report 
(printing only when L1 is en), printed at 
total-output time. Fainting begins en each 
page at channel 2, belcw the two heading 
lines. 

Lines, ,15, and 16 again illustrate that 

fields need not te recorded in the order in 
which the data is to appear in the output 
record. 



Lines 15. 1 



19. and 20 include the Zero- 



mj. I^i_«iiil_ 



Suppress specification. Data frcm each of 
these four fields is printed without any 
leading zeros, and any zone in the lcw- 
crder position is net transferred to the 
output cere-storage area. 



The fields for which Z is specified in 
col. 38 must have been defined as numeric. 

Line 17 illustrates formatting of an output 

field by an edit word (discussed in the 
next section) . It is included here to 
emphasize that Zero Suppress (Z) must not 
be designated when an edit word is 
assigned, and to show that an edit word can 
expand the size of the field (End Position 
30 has been specified to center the field 
around the heading AMOUNT, which ends in 
position 28) . 

The field AMOUNT must have been defined 
as numeric to permit use of an edit word. 

The entry in cols. 45-7C is an edit 
word — not a constant — because Field Name 
(cols. 32-37) is net blank. 

Lines 17, 18, and 19 show resetting (to 
blank or zero) of fields, by the Elank- 
After (B in col. 39) instruction. The 
field is cleared immediately after the data 
has been transferred to the output core- 
storage area. At that time, any indicators 
assigned to "Zero or Blank" for these 
fields turn on (this applies to "Zero or 
Blank" indicators for these fields in Field 
Indicators, and in Resulting Indicators of 
arithmetic and TESTZ operations) . 

If such indicator is used in Output 
Indicators of a subsequent Field- 
Description or File-Identification line, it 
is on — until new input data or calculation 
results turn it off again. 



Note : We have treated Figures ..54A and ._£.. as 
independent examples. If the output speci- 
fications to the file SUMCARD in Fiqure 54B 
were considered a continuation of the out- 
put specifications in Figure 54A, Blank- 
After must not be specified in lines 17, 
18, and 19 of Figure 54A: otherwise, only 
zeros will be punched in SUMCARD from the 
fields AtfCUNT, CCM12, and CCM15 — these 
fields will have been cleared by Blank- 
After specifications in Figure 54A, before 
output to the file SOMCARE. 

Line 20 illustrates output from the' "hold" 
area of a table (see Tab le L ook-up Opera- 
tions, under Calculation Specificat io n s) . 
The data last selected (or as subsequently 
modified) from the table named TABBON is 
printed, endinq in type position 70. 

This item is printed only if indicator 
05 is not on. 

-Nobe : . Throuqhout, note that the entries in 
cols. 40-43 are riqht-aliqned, and that 
leadinq zeros may he recorded (lines 0^ and 
05) or omitted. 
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• Figure 54E. Continuation cf Examples cf Entries for Field Name, Zero Suppress, Blank 
After, End Position in Output Record, Packed Field, and Constant 



Explanation of Entries in Figure 54B 

lines 01-02 portray stacker selection, 
based on the status cf indicators, for 
cards on which nc output operation is 
reguired. The file is assumed to be 
defined as a combined file in the file- 
description specifications. 

If the Matching-Eecord (MR) indicator 
and indicator 45 are on at detail-output 
time, the card is to be selected to stacker 
2; if MR is off, it is tc enter the normal 
stacker cf the relevant I/C device. 

line 04 specifies output at total tiire, 
provided the L1 indicator is on, tc a file 
named SUFjCARD. Assume that SUMCARD is an 
output file cf blank cards. This, then, 
represents the standard method of summary- 
punching, into a blank deck, at the end of 



each control group, and/or of interpreting 
the summary cards. 



Line 05 causes the contents of the field 
ACCNT to be punched, with its last (low- 
order) position in col. 7. Punching — not 
card document-printing — is called for, 
because ccl. 4 1 is blank (or, it could be 



0) . 



Line 06 causes the same data to be printed 
on the card, by print head 1 (1 in col. 
4 1), in positions 2-8, in unedited format: 
leading zeros are printed, and any zone in 
the low-order position remains. 

Iine_s_CT7zll show that the fields need not 
be recorded in the order in which they are 
to appear in the output record. 
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Iine_07 causes the contents cf the 7-digit 
AMOUNT field to te printed by print head 2 
(2 in col. 41) in positions 2-12. 

The data is formatted by an edit 'word 
(see next secticn) . The edit-word example 
is included to emphasize that Zero Suppress 
(Z) must not be specified when an edit word 
is assigned, and to shew that an edit word 
can expand the size cf the field: the 7- 
digit AMCUNT field requires 11 positions in 
the output area, with this particular edit 
word. Care must be used net to cverlap 
fields unintentionally in the output area 
when edit words may expand them. 

The field AMCUNT must have been defined 
as numeric tc permit use cf an edit word. 

The entry in eels. 45-70 is an edit 
word — not a constant — because Field Name 
(cols. 32-37) is not blank. 

li ne 08 causes the same field also tc te 
printed by print head 1 in positions 58-64. 
leading zeros and any zone in the lew-crder 
position are eliminated from the output by 
the Z in ccl. 38. 

The B in ccl. 39 causes the field tc be 
cleared tc zeros after transfer cf the data 
to the. output area. Note that the Blank- 
After instruction is in the l as t decument- 
pr in ting specifications line for the field. 
Although data transfer for punching is in a 
subsequent line (line C9) , the program 
transfers all data for punching to the out- 
put area before the data for card document- 
printing (within the same File- 
Identification specif icatiens) . If the B 
were in line 09, the AMCUNT field would 
contain only zeros at the time of the trans- 
fers called fcr in lines C7 and 08. 

L ine 09 provides for punching cf the 
AMOUNT-field data into eels. 14-17. The 
output will be in packed format (P in col. 
44) . 

The field AMOUNT is 7 digit-positions 
long (as implied by the edit word in line 
07) . In packed format, it consumes 4 posi- 
tions (see formula above, under Packed 
Field) . The field must have been defined 
as numeric fcr packed output. 

Neither an edit word nor Zero Suppress 
is permitted with Packed Field. In any 
case, it is not usual to use Zero Suppress 
for punched data, because leading zercs are 
normally desired in the card and because 
the sign ever the lew-crder position must 
ordinarily be punched for future use (at 
least, if it is a minus 
sign — 1 1-cverpunch) . 

line 1__0 specifies punching cf salesman code 

(field SAISMN) , with lew-crder position in 



ccl. 13 (if we assume a 6-dioit field, then 
into cols. 8-13) . 



Line__1_1 causes the contents of the SAISMN 
field to be printed by print head 1, ending 
in position 17 (if a 6-digit field, then in 
positions 12-17) . leading zeros and any 
zone in the lew-crder position are eli- 
minated (Z in col. 38) from the print-out. 
The field must have been defined as numeric 
because Zero Suppress is used. 



Note: ACCNT and SAISMN ar 
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subseguent reports may reg 
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Li nes 12 and 13 provide for punching the 
contents of the fields CCM12 and C0M15 in 
packed format, in cols. 18-21 and 22r-25, 
respectively. We have assumed that they 
are 6-digit fields (representing commis- 
sions at 12.5 and 15.0 percent, respective- 
ly); they each, therefore, reguire 4 posi- 
tions in packed format. The fields must 
have been defined as numeric for packed 
output. 

Lines 1 4 and 15 specify printing of the 
same 6-digit fields, by print head 2, in 
positions 15-20 and 22-27, respectively — in 
unpacked format. 

Leading zeros and any zone in the low- 
order position of each field are eliminated 
(Z in col. 38) from the printout. The 
fields must have been defined as. numeric. 

The fields are reset tc zeros (B in col. 
39) after transfer tc the output area for 
document-printing. This is the correct 
place for the Blank-After instruction, 
because transfer to the output area for 
punching (see lines 12 and 13) always takes 
place first. 

Also illustrated here is the grouping^ — 
rather than alternating — of punchinq and 
document-printina instructions (note lines 
12 and 13 for punching of two fields, 
before the document-printing instruction 
for either field) . Groupinc and alternat- 
ing are equally acceptable. 

Line \6 specifies the punching of data from 

a field (LASTYR; say, comparative sales 
figure from previous year) , in packed for- 
mat (7-digit amount field packed into 4 
positions) , without any document-printing-- 
just to make it clear that a field may be 
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Blank-After is not specified: we have 
assumed that the total in this field dees 
not represent an accumulaticn cf data from 
detail cards, but is read in from a single 
summary card in each control grcup. Clear- 
ing the field is then unnecessary. 

line 17 shews hew a constant can he 
document-printed: the phrase SALS SUMPY is 
tc be printed by print head 1 in positions 
21-30. 

The output is not performed if indicator 
10 is on at that time. If indicatcr 10 is 
assigned to "Zero or Blank" in Eield Indi- 
cators or calculation Resulting Indicators 
(arithmetic or TESTZ operation) cf any of 
the fields AMOUNT, CCM12, cr CCM15, the 
output of this constant will always te sup- 
pressed as a result of the Elank-After 
instructicn for these fields: the indica- 
tor will always be en before transfer cf 
the constant in line 17 to the output area. 

Of course, Elank-After is net specified: 
it wculd clear the censtant to blank., and 
it would be lost after output to the first 
summary card. 

Note that Field Name (eels. 22-37) is 
bank when a constant applies. 

Line, ,18 shows how the page-numbering fea- 
ture can be employed equally well for 
consecutive- numbering of cards. The cards 
are punched with ccnsecuti\e numbers in 
cols. 76-79 — starting with OOOt (12- 
cverpunch in eel. 79) , unless another 
starting number was provided through an 
input card or a caiculaticn specification. 

Z may be specified in eel. 38 to eli- 
minate the 1 2-cverpunch, but leading zeros 
are then also replaced by blanks. (If an 
edit word is used for formatting, at least 
one leading zero is lost.) 

If Figure 54B is considered a continua- 
tion of Figure 54A, PAGE cannot be used 
here; otherwise, the contents of the field 



PAGE are incremented pach time they are 
printed on the printer (the file named 
PRINT) and each time they are punched into 
the file SUMCARD. 

Line 19 illustrates the punching of a con- 
stant: the summary cards are identified by 
9 in col. 80. 

It also indicates that a censtant (an 
alphameric literal) may consist of numeric 
data . 

Note that Field Name is blank when a 
constant applies. 

Note: Thrcughcut, ncte that the entries in 
cols. 40-43 are right-aligned, and that 
leading zeros may be recorded (lines 09 and 
10) cr emitted. 



Edit Word — Cols. 4 5-7 

Purpose of Edit W or d. An edit word permits 
formatting cf the output frcm numeric 
fields. 

Edit words provide for: 

1. Suppression of leading (non- 
significant) zercs tc a predetermined 
position of the field; 

2. Punctuation with decimal point and 
cemmas ; 

3. Fixed or floating dollar sign; 

4. Asterisk protection; 

5. Identification cf the field bv anv 
EECDIC characters; 

6. Elimination of any zone from the output 
representation cf the lew-crder 
position; 

7. Identification cf negative totals by CR 
symbol or minus sign; 

8. Insertion cf any constant data within 
or following the field; 



9. Insertion oi 



ipaces in the field. 



If no edit word is specified in a Field- 
Description line, the output from the field 
corresponds tc the ccntents of the field: 
the digits, including leading zeros, are 
printed or punched in adjacent positions 
without spaces, and the character in the 
low-order position is zoned if the field 
was zoned (see also point 4 under Rules for 
For mi n g E dit W or ds, below) . 

The punch combination that corresponds 
to each zened EBCDIC character can be 
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ascertained from the EBCDIC table (Appendix 
D) . For standard digits and zones: 

A 12-position hole is punched over the 
lcw-crder digit if the field is sianed 
plus (C zone) ; 

An 11-position hole is punched over the 
lew-order digit if the field is signed 
min us (D zone) ; 

Only the digit is punched in the lew- 
order column if the field is unsigned 
(F zone) . 

The same EBCDIC characters apply tc 
printed output. However: 

1. Not all EBCDIC characters are repre- 
sented en the print medium (chain, 
train, typelar, or MFCM print 
mechanism) ; 

2. The number of different graphics avail- 
able varies with the mcdel and the type 
cf chain, train, or typebar. 

3. The user may have had non-standard gra- 
phics installed; and 

4. In seme cases, an EBCDIC character for 
which the printing device is net 
designed may cause printing cf another 
character. 

Note particularly that a signed zero (a 
freguent normal condition for the lcw-crder 
position of a signed numeric field) may be 
printed as only +(for U) or -(for 0) « cr 
the position may be left blank entirely — 
dependinq en the particular printing 
device . 

Numeric pr ifit-ed eu tp u t> unles s- it is 
knewn to be unsigned, is therefore usually 
edited either by an edit word or by the 
Zero-Suppress instruction (see above). 
(Removal cf the Zone is also possible by a 
calculation specification — see Calculation 
Specifications : Hove, Operation . ) 

General Guidelines Pertaining to Edit Words 

If a numeric output field is tc be 
edited (by use of an edit word) , the edit 
word is placed in the "Constant cr Edit 
Word" field in the same Field-Description 
line. 

An edit word is an alphameric literal 
(see A l_p ha me r ic_Li te ra Is , under Definition 
of Te rms) . As such, it is enclosed in 
single apostrophes (card punch-ccmbinaticn 
5-8). Col. 45 must contain the initial 
apostrophe, with the edit word itself 
starting in col. 46. An apostrophe fellows 
the end cf the edit word (see Alphameric 
Literals, under Def initicn_of_Terms and 
under Calculat ion_ Specif ic at ions fcr apos- 
trophes within a literal) . An edit word 



is, therefore, limited to a maximum of 24 
positions. Any of the 256 EBCDIC charac- 
ters (including blank) are valid within an 
edit word; but some characters, in certain 
positions, have a unique sianificance in 
edit words. 



The fact that Field Name (cols. 32-37) 
is not blank (i.e., contains the name of a 
field) distinguishes an edit word from a 
constant (see Const ant , above). 

No matter how often a particular edit 
word is used (i.e., in how many Field- 
Description lines it appears) , it is stored 
by the program only once (i.e., it consumes 
only a single core storage area) . 

A Elank-After instruction (B in col. 
39) dees not destroy the edit word (in con- 
trast to a constant, which is then blanked 
out) . 

An edit word may be used to format 
numeric fields for: 

1. Printing on the printer; 

2. Document-printing (interpreting) on 
punch cards; 

3. Punching into cards. 

The latter use is not common, because 
it is not usual to insert punctuation, 
symbols, constants, spaces, or separate 
siqn positions — cr to eliminate leadinq 
zeros--in punched numeric fields. 

The edit word applies to whatever output 
is specified in that Field^Description 
line. Editing output from a field in one 
Field-Description line has no effect on 
subsequent output from the same field (in 
contrast tc a Blank-After instruction) . 

An edit word must not be assigned if: 

1. The field is alphameric (i.e., if it 
has not been defined as numeric) ; 

2. Packed Field (P in col. 44) is speci- 
fied in the same Field-Description 
line ; 

3. Zero Suppress (Z in ccl. 38) is speci- 
fied in the same line; 

4. The field does net consist only of 
valid digits (0-9) , except for a zone 
permitted in the low-order position 
(i.e., the digit portions cf the field 
must not contain hexadecimal A-F) . 

Where an edit word is assigned, suppres- 
sion of leading zeros in at least one 
position — the leftmost position — of the 
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min g Tips for circumvention.) 

When an edit word is assigned, any zone 
over the lew-order position cf the data is 
removed frcra that position in the output. 
However, a negative sign (hexadecimal C — 
see EBCDIC table. Appendix D) can te repre- 
sented as CE or irinus (-) to the right of 
the digits from the field; a plus sign (or 
any zone ether than hexadecimal E) is eli- 
minated completely from the output. 

The same edit word cannot be assigned to 
fields of varying lengths; i.e., all the 
fields with which a given edit wcrd is used 
must have the same size. 



it appears in the body portion, is counted 
as the eguivalent of a blank position. 
These blank positions (including a maximum 
of one zero or asterisk) are replaced by 
digits from the corresponding positions of 
the data field, or — where there are no siq- 
nificant digits to the left of the zero- 
suppression limit--the output appears as 
blank (or asterisks) . 



■fc-6,*-6 0.'6'fi&CR*FINAL' 
i „ ^_ 



Body i Status j Expansion j 

S ; : 



The number cf positions allowed in an 
edit word for digits from the data field 
must net te less than the number of posi- 
tions in the data field--it should be 
exactly the same number. 



Note: While it is permitted tc make the 
edit word larqer than necessary to accom- 
modate all positions of the field, this 
gains the user ncthinq: 

1. The data field is left-aligned within 
the edit wcrd; therefore, there is 
still no way to prevent elimination of 
at least one leadina zerc. 
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Figure 55. 
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Symbolic Portrayal of the Seg- 
ments of an Edit Word 



2. No core-storage space can be saved by 
making an edit wcrd large encugh tc 
accommodate the largest cf several 
fields, since all fields with which one 
edit word is used must be cf equal 
size . 



Eu xt Woru Segments 

An edit word is composed of one, twe, or 
three constituent segments: 

1. The fcedy — reguired 

2. The status pcrticn — optional 

3. The expansion — optional 

Figure 55 depicts the segments cf edit 
words. 
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The program determines the end of the 
body segment by countinq the blank posi- 
tions (including the leftmost or *) from 
left to right until the point is reached 
where the count is equal to the diqit capa- 
city cf the data field. The pcint where 
that count is satisfied terminates the body 
of the edit word. 
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extends to the right 
dy segment, through 
f the two letters CR 

- (minus) . The 

portion of an edit 
tion, by display (or 

-, of a negative 
characters (includinq 

siqn symbol (CR or 
crtion. When the 
one) , the entire sta- 

ampersand) appears 
fied in the edit 
s net neqative, the 
appears as blank* 
tatus portion always 
e output record.) 



Edit words that contain no CR or - 
(minus) symtol to the riqht of the body 
segment have no status portion. The ter- 
minal apostrophe is then placed to the 
immediate right of the body, unless an 
expansion segment fellows. 
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Rules for Forming Edit Wcrds 

Note : Althouqh the examples in Figure 56 
are explained in the next subsecticn, 
reference to Figure 56 while reading this 
subsecticn will help. 

1. Delimiting the edit wcrd. 



Any EECDIC characters (including 
blanks) may make up an expansion sec- 
tion to the right of the status portion 
(cr the right of the body, if there is 
no status portion) — to the terminal 
apostrophe. Call the number cf posi- 
tions in the expansion = E. 

The total number of positions in the 
edit wcrd must then be = B+C+S+E < 24. 

M ot e : Because the edit word can be 
censiderably lenqer than the data 
field, the user must remember: 

a. That End Position in Output Record 
(cols. 4 1-43) refers to the riqht- 
most position of the edit word; and 

b. To allow enouqh room for successive 
output fields so that the left part 
of one field is net overlaid over 
the right part of a previous output 
field. 



2. 



The complete edit word must be enclosed 
in single apestrcphes (card punch-com- 
bination 5-8) . 

Determining number of positions 
reguired in edit word for data-field 
digits. 

The number of blank positions (includ- 
ing, if present, cne pesitien with zero 
cr asterisk) in the bcdj[ portion of the 
edit word must be no less than (and is 
normally equal to) the number cf digit 
positions in the data field. Call this 
value = B. This is the enly mandatory 
porticn cf an edit wcrd. 
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, if present, the 
sk) in the bedy are 
ificant digits from 
sitiens cf the data 
ield Name. Ncn- 
y te represented in 
zercs, blanks, 
symbol (see Zero 
k Protection, and 
: 5, 6, 8, below) . 



3. Determining total length of edit wcrd. 

The bedy of an edit word may contain 
constants (any EECDIC characters except 
blanks) besides the blanks and single 
zero cr asterisk counted in the value B 
(item 2, above) , and a fixed or float- 
ing dollar sign. Call the number cf 
these constants = C. 

The status portion may ccntain any 
EBCDIC characters (including blanks) 
preceding the sign symbol. Call the 
total number of positiens in the status 
pcrticn = S. 



4. Zone elimination. 

The assigment of an edit word in itself 
removes any zone from the lew-crder 
digit in the output record. (See Status 
segment, item 10 below.) 

A numeric field is zoned in its low- 
order position if: 

a. It was zoned in that position when 
read in; or 

b. A Field Indicator was assigned to 
it in the input specifications. 

(This also converts minus zero to 
p-lus z-ero-i ) i -er - - 

c. It was a Result Field in an arith- 
metic operation; cr 

d. A zone was moved to that position 
in calculation specifications; or 



e. It was cleared by a Blank-After 
specification; or 

f. The input field was blank. 



5. Zero suppression 
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crder position) , and there is no zero 
or asterisk in the body of the edit 
word, the entire area assigned to the 
tody in the output record Vvill te 
blank. (Exception: fixed dollar sign 
— see 7, below.) 

The leftmost zero (or asterisk — see 
below) entered in the body of an edit 
word stops suppression of leading zeros 
beyond that position (the position in 
the tody that contains the suppression- 
limiting zero is included in zero 
suppression) . Through the point of the 
first zero in the body of the edit 
word, or to the ^oint of the f^ ■>-«;+■ o-irr— 
nificant data digit-- whichever occurs 
first (further left) — all positions in 
the tody of the edit word, including 
these containing constants, appear as 
blank in the output record. (Excep- 
tion: dollar sign — see 7 and 8, below.) 

From the point of the first signifi- 
cant digit in the data field, or the 
position to the right of the 
suppress ion- limiting zero- -which ever 
occurs first--data digits replace the 
blanks in the corresponding positions 
of the edit-word body and any constants 
(including punctuation) are retained 
for output. The suppression-limiting 
zero itself is replaced ty a signifi- 
cant data digit in the corresponding 
position of the field; if only leading 
(non-significant) zeros exist through 
that position in the data field, the 
suppression-limiting zero, too, is 
blanked. 

Any zero (or asterisk — see below) , 
in the body of the edit word, to the 
right of the first zero (or asterisk) 
is considered a constant and always 
appears in the output (i.e., the left- 
most zero or asterisk terminates zero 
elimination) — see item 9, below. 
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le , by entries in 
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to the left cf the 
field — even if the 

ade larger than the 

pie: 

field containing 65 

tput as .65 by 

body of the edit 



wora as ■ .xx>'. Keaarciess of 
whether the edit word is written 
as '.tb' or »tb', the output 
will appear as 65. 



Similarly, .05 for a two- 
digit field will appear in the 
output as b5. 

The problem is solved by (1) 
specifying the decimal point as 
a constant for the preceding 
position in the output record 
and (2) not editing the field 
at all (see Programmin g Tips) . 
If desired, calculation speci- 
fications can test for 00 in 
the field, to allow suppression 
of the decimal point and the 
field output in that situation. 



(c) With two exceptions, it makes no 
difference — if leading zeros for 
the entire field are to be 
suppressed — whether a zero is 
entered in the rightmost position 
of the body, or not at all. 

The exceptions are (1) floating dollar 
sign, and (2) printing of the sta- 
tus portion when the data field 
consists of all zeros, with a minus 
sign. Both are explained below. 



6. Asterisk protection. 
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A significant digit (including a 
non-leading zero) in the corresponding 
position of the data field replaces the 
asterisk in the edit word. From the 
point of the first significant digit or 
the asterisk in the edit-word body, any 
constants in the body are retained for 
output . 

Any asterisk (or zero) , in the body 
of the edit word, to the right of the 
first asterisk (or zero) , is considered 
a constant and always appears in the 
output (see item 9, below). 

One leading zero is suppressed, even 
if the asterisk is in the extreme left^ 
position of the body. 
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Note. Neither a fixed dollar siqn nor 
a floating dollar sign (see 7 and 8, 
below) can be specified in an edit word 
with asterisk protection. 



7. Fixed dollar sign. 



A dollar sign ($) placed in the left- 
most position of an edit word appears 
in that position of the output, regard- 
less of suppression of leadinq zeros. 
The lody of the edit word must be 
enlarged to provide the extra position 
for the dollar sign. 

If only one leading zero is to te 
suppressed (and no & symbols precede 
the suppression-limiting zero) — i.e., 
the suppression-limiting is in the 
leftmost digit position adjacent to the 
dollar sign--the $ becomes a floating 
(not fixed) dollar sign (see 8, below). 

A fixed (or floating) dollar sign 
cannot be used in an edit word with 
asterisk protection (see 6, above). 
Specifying the dollar sign instead as a 
preceding contiguous constant field is 
a simple solution. 



Floating dollar sign. 
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Regardless of where the floatinq 
dollar sign is placed in the body of 
the edit word, the location of con- 
stants in the body (such as punctuating 
commas, for instance) should net be 
shifted to cempensate for the dollar- 
sign position: the extra position pro- 
vided because of the floating dcllar 
sign remains at the extreme left of the 
tody (see Figure 56) . 

A dcllar sign in the body of the 
edit word elsewhere than in the left- 
most position or to the immediate left 
of the first zero is neither a fixed 
nor floating dcllar sign: it is a con- 
stant (see 9, below) . 

A floating (or fixed) dcllar siqn 
cannot be used in an edit word with 
asterisk protection (see 6, above). 



(a) 



(b) 



[c) 



If the dcllar sian is placed in the 
leftmost position of the edit-word 
body, it is normally a fixed dcllar 
siqn (see 7, above) . However, if 
the zero that terminates zero 
suppression occupies the next 
position — i.e., only the minimum of 
one leading zero is to be sup- 
pressed (and no & symbols 
intervene)-- the $ becomes a float- 
ing dollar sign: it then appears 
in the output record either (1) in 
the position that corresponds to 
the leftmost leading zero, when the 
data beqins with zero (s) or (2) to 
the immmediate left of the high- 
order position of the data field, 
when the data begins with a signi- 
ficant digit — i.e., it floats 
between two positions. 
If the zero to end zero suppression 
is placed in the low-order position 
of the body of the edit word (i.e., 
all leading zeros are suppressed — 
as though no zero appeared in the 
body) , the floating dollar symbol 

(if one is specified) appears in 
the output record in the low-order 
position of the body when the 
entire data field is zero. This 
programming approach is meaningful 
only when a floatinq dollar sign is 
needed, but all leading zeros are 
to be suppressed. (See also item 
10 below, for status portion with 
all-zero data field.) 
Eecause a floating dollar sign must 
be specified in the edit word con- 
tiguous to (and to the left; of) the 
zero-suppressicn-limiting zero, a 
floating dollar siqn cannot be 
placed ahead of punctuation (e.q., 
ahead of a comma) , to appear in the 
output to the immediate riqht of 
the punctuation if there are no 
hiqher-order significant digits. 
For example, in the edit word 

'btSjOtt)' ,the dollar sign 
is merely a constant (see 9, below) 
— net a floating dollar sign — 
because it is not contiguous to the 
zero. It is not possible to assign 
a floatina dcllar sign to appear in 
the output in place of the zero in 
the edit word in this situation 

(where the zero follows a comma or 
other constant) . 



Constants within the body of an edit 
word . 

With the exceptions enumerated below, 
any EBCDIC characters within the body 
of an edit word are treated as con- 
stants: they appear in the output 
exactly as specified in the edit word, 
and in the correspendinq positions. 
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However, they appear in the output only 
when they are to the right of the first 
siqnificant data-digit, or tc the right 
cf the leftmost zero or asterisk in the 
body of the edit word — whichever occurs 
first. When neither a significant 
data-digit ncr a suppressicn-limiting 
zero or asterisk occurs to the left of 
the constants, they are replaced in the 
output either (1) by blanks, if 
asterisk protection is net specified, 
pr (2) by asterisks, if asterisk pro- 
tection is specified. 

The constants most ccmmcnly employed 
in the body of an edit word are a 
degimal point and commas in amount or 
quantity fields (or, a decimal comma 
and periods, in European notation) . 
However, the program dees not perform 
decimal alignment between edit words 
and data fields: the programmer must 
place the decimal point in the edit 
word into the appropriate relative 
position where he wishes it to appear 
in the output. 

Exceptions: 

(a) A dollar sign in the appropriate 
position for a fixed dollar sign 
(see 7, above) or floating dollar 
sign (see 8, above) is treated as 
described above. However, in any 
other location, it is treated as a 
constant. 

(b) The leftmost zerc or asterisk (one 
or the other only) is treated as 
described above (items 5 and 6) . 
However, in any ether position, a 
zero or asterisk is treated as a 
constant . 

(c) The use cf blank spaces in the body 
cf an, edit word is confined to: 

(i) Output positions that corre- 
spond tc digit positions in the 
data field; and 

(ii) A leftmost blank to compensate 
for the space taken up by a 
floating dollar sign. 

Therefore, spaces between data 
digits or constants cannot be created 
by leaving positions blank in the tody 
cf the edit word. However, an amper- 
sand (&) in the body cf the edit word 
provides a corresponding blank space in 
the output representation. An amper- 
sand itself cannct be reproduced in the 
output representation cf the body cf 
the edit word--it is net treated as a 
constant. 

10. Status segment. 

The status portion of an edit word is 
intended for identification (by CE or 
minus symbol) cf negative values. 



As described under Edit Word Seq- 

ments (above) , the body of the edit 
word terminates with the last blank (or 
replaceable zero or asterisk) position 
(counted from left to right) required 
to accommodate all digits of the output 
field. If the consecutive letters CE, 
or a minus sign (-) , appear in the edit 
word to the right of the end of the 
body, the positions from the end of the 
bedy through the (first) CE or minus 
symbol form the status segment of the 
edit word. 



Any of the 256 EBCDIC characters 
(including blank) may precede the CE or 
minus symbol in the status segment. If 
the contents of the data field are 
negative, the entire status portion 
appears in the output record exactly as 
it appears in the edit word — except: 
an ampersand (S) in the status portion 
is replaced by a blank space in the 
output record. (Thus, either a blank 
or an ampersand in the status portion 
appears as blank in the output record.) 
When the contents of the data field are 
net negative, the entire status portion 
of the output record is blank. 

When the data-field contents are 
minus zero (possibly if read in as 
such, or through a move operation) , and 
all leading zeros are tc be suppressed, 
the programmer has two choices: 

(a) If no or * is placed into the 
lew-order position of the body of 
the edit word, the status portion 
is blank in the output record. 

(b) If or * is placed into the low- 
order position of the body of the 
edit word, the status portion 
appears in the output record as 
specified in the edit word. 

If there is no CE or minus symbol in 
the edit word to the right of the body, 
there is no status portion. Anything 
tc the right of the body is then part 
Of the expansion (see 11, below). How- 
ever, neaative amounts always appear in 
the output record as true figures (not 
complements) : if there is no status 
segment, they merely appear without a 
sign symbol. 

11. Expansion segment. 

Any positions to the right of the sta- 
tus segment--or, if there is no status 
segment, any positions to the right of 
the body — up to the closing apostrophe, 
make up the expansion segment of the 
edit wcrd. 
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Any of the 256 EBCDIC characters 
(including fclark) entered in the expan- 
sion segment appear identically in the 
corresponding positions of the output 
record. (An ampersand in the expansion 
segment also appears as such in the 
output record.) Be careful not to use 
the characters CE cr -(minus) in an 
intended expansion segment which is not 
preceded by a status pcrticn — otherwise 
the expansion portion through the posi- 
tion occupied fcy these characters 
becomes a status portion. 

If the terminal apostrophe follows 
the body or status segment of the edit 
word, there is no expansion segment. 

Figure 56 illustrates edit words. All 
examples assume that ccl. 38 (Zero Sup- 
press) is blank (as it must be whenever an 
edit word is assigned) . Tte symbol t has 
been used extensively to represent a blank 
space in the output record, to avoid any 
possible ccnfusicn concerning the number of 
blank positions. (Zeros have not been 
slashed where no confusion with the letter 
is likely, in order not to clutter up the 
presentation.) 

A vertical dotted line has been inserted 
in the output representation (it dees not, 
of course, appear in the output record) to 
clarify for the reader the end of the tody 
and status segments. 

Examples labelled A-J are sample edit 
words for seme of the most frequently 
desired output formats. The numbered 
examples that fellow this first group 
represent an attempt to illustrate every 
edTtinTg si t u a t ic n "~w hi c h STght false" a" Ques- 
tion in the programmer's mind. Points to 
be especially noted in each example are 
itemized below; but the user is assumed to 
have read the foregoing section en edit 
words. 



Points to Note in Figure 56 

(Reference letters and numbers refer to 
"Example No. " in the figure. The lettered 
items are explained in scmewhat greater 
detail than the numbered ones. For the 
latter, only the non-routine points are 
emphasized. All comments assume prior 
reading of the entire section Edit Word. ) 



B. 



Normal method of editing a ten-digit 
dcllars-and-cents field. Decimal ppint 
between dollars and cents; commas off- 
set each three positions in dollar 
area. A space fellows the body (in the 
status portion, either a space or 
ampersand appears in the output as a 
space) . The status portion (8 CE) 
appears in the output as specified 
(except that f> replaces &) when the 
data is negative; otherwise the posi- 
tions are all blank. The expansion, 
here consisting of an asterisk, always 
appears in the output record as 
specified. 



Since zero elimination is not ter- 
minated until the unit-dollars position 

(0 in edit word just left of decimal 
point) , leading zeros and constants 

(e.g., commas) are replaced by blanks 
until a significant digit is encoun- 
tered, or through the zero position in 
the edit word. (The edit-word itself 
is replaced by any significant digit in 
the corresponding data-field position.) 
The decimal point, and data to its 
right, therefore always appears in the 
output record. Notice that, since zero 
elimination proceeds through the posi- 
tion of the in the edit word, that 0, 
too, is replaced by blank. 



Illustrates punctuating an eight-digit 
guantity field with commas. Leading 
zeros and constants (e.q., commas) are 
replaced by blanks through the edit-word 
position (the next-to-last position 
i n_ the tody) . Therefore, if the entJLre 
data field is zero, a zero appears in 
the output record only in the low-order 
position. 



The status portion, consisting here 
enly of a minus sign, appears in the 
output record if the data is negative; 
otherwise, it is replaced by blank. 
The expansion, which is any data that 
follows the status portion, or — if 
there is no status portion — follows the 
body, always appears in the output 
record as it is specified in the edit 
word (regardless of whether the status 
portion appears as specified or as 
blanks) . 
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1234567890 - 


$bl2.345.678.90iCRi* 
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8/ 


L 


N 


C 
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44 
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x — + — ~ 
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■OL J 
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L 


M 


C 


E« 


45 


0000000000 + 
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C 


E 


N 


T^ 
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46 
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bbbbbl, 356DOLLARS78 • CENTS 
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5' 










47 
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bbbbbbbbbbbbbb j cents 


^ 


11 


4RS _ 


Cf.J'L 


S 


C 


ft 


T 




48 


000000 


bbbbODOLLARSO • bbbbbbbb 


It 


LA*j,s 


f fi z- 
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:t 








49 
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~* 


- 
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>c 


K 
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0000001234 
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; 1 
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b9-30-66j&LATER 
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000000005 


bbbbbbbb0.05lb 



Figure 56. Examples of Edit Words 
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C. Again, normal punctuating of a ten- 
digit amount field. By placing the 
in the tody in the ten-dcllar position, 
leading zeros and constants are 
retained starting with the unit-dcllars 
position. 

By placing a dollar sign to the 
immediate left of the leftmost zero in 
the edit-word tody, it becomes a float- 
ing dollar sign: it always appears in 
the output to the immediate left of the 
first digit or retained constant — i.e., 
ahead of the leftmost significant 
digit, the leftmost retained leading 
zero, or the leftmost retained con- 
stant. Note that an extra position 
must fce allowed for the floating dollar 
sign at the extreme left of the edit 
word — not at the location where it is 
placed: where it is placed, it is 
replaced by a data digit or a blank (or 
remains, if the first output-field 
digit happens to fall to its immediate 
right) . 

The status portion (minus sign) 
appears thus if the data is negative; 
otherwise, it is replaced by blank. 
The expansion (asterisk) always appears 
identically in the output record. 

D. Similar to C, except zero elimination 
is specified up to (but not including) 
the decimal point, CR is used as the 
symbol for a negative value, and the 
expansion segment consists of two 
asterisks. 

In the example, the dollar symbol 
has "floated" to the left, to precede 

- tftw first sigai'f^a'rit~''aigi'f'--"inTrcTi 

occurred before the zero-suppression 
termination point. If the data were 
all zero, the output would appear as 
$.00"Et)**. Note, again, the extra posi- 
tion at the left of the edit word to 
compensate for the dollar sign. Notice 
also that the zero-suppressicn- 
termination zero in the edit word is 
replaced in the output by the actual 
data digit (8) in that position. 

E. Similar to D, but there is no status or 
expansion segment. Also, because the 
dollar sign is placed in the extreme 
left position of the edit word, and is 
not followed immediately by a 
suppression-terminating zero, it is a 
fixed dollar sign. It then always 
appears in the output in that position. 

T. This illustrates that a space can be 
left in the output record between a 
fixed dollar sign and the first digit, 
even when the entire field contains 
significant digits. An ampersand in 



the body is not replaced by a data 
digit, and becomes a blank in the out- 
put record (except when the ampersand 
is in an asterisk- protection area) . 

The status portion consists of -6- . 
The minus appears in the output because 
the data is negative. In the status 
segment, either ampersand or blank may 
be used to represent a blank space in 
the output record (in example A, an 
ampersand was used) . The program 
determines the end of the body of the 
edit word by counting, from the left, 
the number of positions provided 

(blanks plus a possible or *) for 
data digits. Further blanks then 
belong to the status segment, or to 
expansion if there is no status segment 

(no CR or - to the right of the body) . 
Thus, the blank here preceding the 
minus sign is part of the status 
segment . 

The expansion segment consists of 
•bGRCSS, because it always begins imme- 
diately after the minus sign or CR of 
the status segment — or after the body 
segment, if there is no status portion. 
The contents of the expansion segment 
always appear identically in the output 
record, irrespective of the sign of the 
data (i.e., regardless of whether the 
status appears in the output as speci- 
fied or as blanks) . 

G. Zero elimination is not suppressed at 
all; data in the output record there- 
fore begins with the first significant 
digit. If the whole data field were 
zero, the entire edit word — including 
the sigh", even for negative zero — would 
be replaced by blanks in the output 
record (see I, below) . 

H. Zero elimination is not suppressed at 
all (it always proceeds through the 
position of the suppression-terminating 
zero or asterisk in the edit word) . 
However, because a suppression-termi- 
nating zero is entered, the status por- 
tion will appear in the output as spe- 
cified (tiCR) when the data field con- 
tains minus zero. This is the essen- 
tial difference between H and I 
(below) . 

I. The status portion (CR) appears as 
blank in the output record when the 
data field consists of minus zero, 
because no suppression-terminating zero 
(or asterisk) appears in the body of 
the edit word (compare with H, above) . 

The expansion segment (*) always 
appears in the output record as given 
in the edit word. 
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J. Illustrates asterisk protection. 

Asterisks replace all positions in the 
tody (including those with constants 
— like commas, for instance) to the 
left of the first siqnificant digit, 
throuqh the position that contains the 
left-most asterisk in the edit-wcrd 
body. (The asterisk in the edit wcrd 
itself is replaced by any significant 
digit that may be in the ccrrespcnding 
position of the data field.) 



If the asterisk were in the right- 



10 si 



:icn 



edit- von 



»cdy, 



asterisks would appear in the output 
record for the entire tcdy of the edit 
word when the data is all zero (if it 
were minus zero, the minus sign would 
appear) . 



1, 2, and 3. No edit wcrd. The data 

appears in the cutput record as con- 
tained in the data field, Note that 
the lew-order position is zoned in the 
output record if zoned in the data 
field. 

4, 5, and 6. A blank edit word is 
assigned. All leading zercs are 
blanked and a zone in the lew-crder 
position is eliminated in the output 
record. Negative values are not 
identified. 

7. The effect is the same as in 4, 5, and 
6. If the edit word contained a sta- 
tus portion, the in the body would 
cause the status portion to appear in 
the output record also for a value of 
minus zero. In examples 4, 5, and 6, 

a status segment would appear as blank 
for a minus-zero value. 

8. Although the suppression-limiting is 
at the extreme left, suppression cf 
the first leading zerc cannot be 
avoided. 

9 and 10. The status pcrticn appears in 
the cutput for negative values; it is 
blank for positive values. Because 
the first ten blank positions accom- 
modate the data field, the eleventh 
position. — also blank--is part of the 
status segment. Any positions to the 
right of the status-segment end (CE or 
minus symbol) represent expansion, 
which always appears identically in 
the cutput record — even if the status 
segment is blanked. 

1 1. An ampersand in the status segment 

also appears as blank in the output. 
A minus sign, instead of CR, is illus- 
trated. The blank following the CE or 
minus is part of expansion. 



12 and 13. The *net8 to the left of cfi or 
minus (and to the right of the body) 
is part of the status segment. There- 
fore, it appears in the output record 
as blank when the status does not 
a Pply (value not negative) . However, 
the S* to the right of CR or minus 
represent the expansion segment, and 
therefore always appear in the output, 

14. There is no minus or CE to the right 
cf the body. Therefore *-fcPE0FIT is 
expansion, and appears in the output 



'onar 



rQ I fl£C Q j 



c: -i n n n-f 



ihe data 



field. 



15 and 16. Similar to 11, but a fixed dol- 
lar sign is shown. Note that an extra 
position was added to the body to 
accommodate the dollar sign. 

17. When the dollar siqn appears to the 
immediate left of the suppression- 
limiting 0, it becomes a floating dol- 
lar sign — even when it occupies the 
leftmost position in the edit word 
(see No. 34 for contrast) . 

18 and 19. Floating dollar sign is illus- 
trated for different numbers cf lead- 
ing zeros. Note extra position in 
edit word to compensate for the dollar 
sign. 

20 and 21. When the contents of the data 
field are minus zero, the status por- 
tion is blanked unless a (or 
asterisk) appears in the body of the 
edit word. Regardless, however: the 
expansion segment is reproduced in the 
output record. 

22 and 23. This illustrates the same as 

items 20 and 21, but points out that-- 
even with a dollar sign — the status 
portion is blanked when the value is 
minus zero, unless (or *) appears in 
the body of the edit word. 

24. An example of some zercs appearina in 
the output record when the entire 
field is zero, Zero-elimination 
extends through the in the edit 
wcrd, leaving two data positions whose 
zeros appear in the output (the third 
blank after the edit-word belonqs to 
the status segment, because all ten 
data positions have been allowed for 
before that position) . 

25. As 24, but with floating dollar sign 
replacing the last suppressed zero. 

26. Presence of a (or *) in the body 
causes the status segment to appear in 
the output even for a minus zero value 
(see also 21 and 23). Because the 

dollar sign is adjacent to the in 
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27. 



28. 



the lew-order position, it is a float- 
ing $ and appears in the output record 
in the low-crder position cf an all- 
zerc data field. This gives full pro- 
tection with a floating dcllar sign, 
even fcr all-zero data, when all lead- 
ina zercs are to be eliminated. 



Incidentally illustrated is a sta- 
tus segment consisting only of a minus 
sign, and no space. 

Asterisk protection with complete eli- 
mination of all leading zercs. The 
status segment appears in the output 
for a minus zerc field when there is 
an asterisk (cr zerc) in the tody of 
the edit word. 

Asterisk protection tc a certain posi- 
tion; thereafter, any further leading 
zercs appear in the output. 



29 and 3C. Asterisk protection and zero 
elimination fcr a single position. 
Note that the asterisk is replaced by 
a significant digit in that position. 

Eecause there is no status segment, 
a negative value is net identified. 

31. Asterisk protection and zero suppres- 
sion for entire field. Significant 
digits take precedence, and replace 
the asterisk. 

32 and. 33. A method for punctuating a ten- 
digit dcllars-and-cents field. Punc- 
tuation and zercs tc the left of the 
first significant digit are blanked. 
The decimal point is also lest when 
there are less than three sianificant 
digits (see item 63) . The status seg- 
ment is blanked for an all-zero field. 
The expansion pcrticn always appears. 

The minus sign tc the left cf NET 
in Nc. 33 was inserted to pcint out 
that it is part of t expansicn — not 
status--because a sign symbol (CR) 
already appeared to its left. 

34, The ampersand — which appears in the 
output as a space — nakes it pcssitle 
tc keep the dcllar sign fixed, while 
limiting zero suppression tc the mini- 
mum cf one position (contrast with 
item 17) . All punctuation is 
ret ained--reaardless cf leading 
zercs --because the in the edit word 
is placed tc the left of the first 
com ma . 

35-38. Standard methods fcr placing the 
flcatina dcllar sign to retain at 
least the decimal point, regardless of 
number of leadinq zercs. 



Note that the extra position to 
cempensate for the floating dcllar 
sign is at the extreme left of the 
edit word — not where the dollar sign 
is recorded; i.e., the location of the 
comma is not changed. 

39. Asterisk protection and zero elimina- 
tion tc the decimal point, retaining 
the decimal point regardless of number 
of leading zeros. Note that asterisks 
replace also the punctuation (or any 
constants) where leading zeros are 
suppressed. (See also No. 41.) 

The second asterisk is part of the 
status segment, and appears in the 
output only for a negative value. The 
third and fourth asterisks form the 
expansion, and always appear in the 
output. 

40. A standard programming technigue for 
retaining the decimal point while eli- 
minating all leading zeros to the 
left. 

Similar to A, but shows status seg- 
ment for minus-zero value. 

41. Similar to 39, but the status portion 
consists only cf a minus sian and 
there is no expansion segment. The 
effect on a minus-zero field is shown. 

42. Shows that the constant (in this case, 
a comma) follows the dcllar sign in 
the output record, if the floating 
dcllar siqn and the suppression- 
limiting zero immediately precede a 
constant and there is a relevant num- 
ber of leading zeros. 

In the case of a comma, this has an 
awkward-looking effect; in case of a 
decimal point, it is a normal approach 
(see item 36) . 

43. How to maintain a space between a 
fixed dollar sign and the first data 
digit, when all digits in the field 
are significant (no leading zeros) : 

an 8 in the body appears as a space in 
the output record. 

44. Normally punctuated guantity field. 
However, all leading zeros (including 
units position) will be suppressed 
(compare to item 45) . 

45. Normal method for showing a single 
zero in the output record when the 
data-field contains only zeros. 

46-50. Other constants within the body of 
the edit word behave like punctuation 
(which is the sane as constants) : 
constants to the richt of the first 



2U'. System/360 Model 20 CES Report Frccrap Generator 



A A ^-5 *■ •->■. 



limiting zero appear in the output. 



Note that a constant to the riqht 
of the last data-digit position is 
part either of the status or expansion 
segment. If CE or minus symbol fel- 
lows, it is part of the status, and 
appears in the output only for nega- 
tive values (note items 48-50) ; if no 
sign symbol follows, it belongs to 
expansion, and always appears in the 
output record (see item 47) . 

Items 48-50 also show the effect on 
constants of different placement of a 
suppression-limiting 0. In item 49, 
an ampersand inserted after the first 
constant provides a space following 
that constant in the output record. 

51. A hyphen (a minus symbol) is used 
within the body of the edit word. A 
social security number is shown. 

If the initial zero must appear in 
the output, the data must be broken up 
into three separate fields, no edit 
words can be used, and the hyphens 
must also be specified as separate 
output constants. (See Programming 
lies.) 

52. Again, an edit word containing con- 
stants in the body, followed by expan- 63* 
sion. Included is an illustration of 

an apostrophe within an edit word 
(i.e., within an alphameric literal). 

53 and 54. Illustrate effect, on decimal 

peine v^^ any Omer constant.) snu iO±- o4. 
lowing zeros, of different placements 
of the suppression-limiting zero--when 
the field contents are zero. 



x l IS DOl pOfcitoXJJxe (ill LllXii tf.rtj) to 

place a floating dollar sign so that 
it replaces a constant (e.g., a comma) 
in the output record when the first 
significant digit follows the constant 
(for instance, when it follows a 
comma) . 

56-59. A zero or asterisk after the left- 
most zero or asterisk is a constant — 
not a suppression-limiting or 
asterisk-protection symbol. 

Items 58 and 59 again also show 
that asterisk protection supplants not 
only blanks but also other constants 
to the left, including an ampersand. 

60-62. Three examples of editing a date 

field. Note that one leading zero is 
suppressed even- if were placed in 
the leftmost position of the edit 
word: therefore, since month nu-mbers 
have at most one leading zero, there 
was no point in specifying a suppres- 
sion limiting zero. 

Item 61 shows the use of ampersand 
in the edit word to retain a blank 
space in the output record. The 
characters SLATER, however, form an 
expansion section. An ampersand in 
the expansion appears as such in the 
output. 



Shows what happens to the decimal 
point when there are less than three 
significant digits in a longer field, 
and no suppression-limiting zero is 
specified. 

Shows one method of preventing loss of 
the decimal point when there are less 
than three significant digits in a 
lenaer field. 



55. Included to emphasize that a dollar 
sign that is separated frcm the 
suppression-limiting zero— even if 
only by a comma — is net a floatina 
dollar sign, but a constant. 



Moving the suppression-limitina 
zero one position further riaht still 
preserves the decimal point, but eli- 
minates the zero to its left in the 
output. 
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PROGRAM EXAMPLES 



One application example (Figure 5) appears 
early in the manual, tc serve as an intro- 
duction to the RPG approach. The numerous 
other fraqmentary proqram examples up to 
this point were developed to illustrate 
various individual functions that can be 
performed with the Report Proqram Generator 
(RPG) . 

The following three proqram examples 
illustrate the complete proqram specifica- 
tions for: 



correspond to his particular Model 20 card 
reader — the program will run with any Model 
20 reader. 

The second, more complex, application 
example requires 8K bytes of core storage, 
and has been designed to take advantage of 
all the features of the IBM 2560 MFCM: 
reading cards from both hoppers, punching 
into cards that have also been read 
(combined file) , interpreting (card 
document-printing) , and stacker selection. 



1. A sales commission calculation and 
report; 

2. An order-entry pre-billing application: 
inventory ccntrol and crder-item price 
extension, involving also matching of 
files; and 



The third example can also be run within 
4K bytes of core storage. It has been 
written for the MFCM, to take advantage of 
interpreting (if installed) ; but otherwise 
it can be run on other Model 20 I/O units, 
i f the File Description specifications are 
amended to correspond. 



3. A simple invoicing operation with sum- 
mary punching of accounts receivable 
cards. The detail cards processed in 
example 2 are utilized; but side-.by- 
side printing cf ship-tc and sold-to 
cards is also demonstrated, as well as 
table look-up. 

The first sample program can be compiled 
and executed on a system eguipped with 4^ 
bytes of core storage in the CPU, any one 
cf the Mcdel 20 card-reading devices, and a 
printer. A card deck comprising the speci- 
fications and data for this example is sup- 
plied by -XB-ttJ-s Program Inf-crmation Depart- 
ment together with the FPG compiler. In 
that deck, the IBM 2501 is assigned as the 
card reader. However, the application was 
deliberately designed not to be dependent 
en a particular read device: the user need 
only change the Device code in the first 
File Description Specifications card tc 



; Note : The interpreting feature is avail- 
Table only on the 2560 MFCM, Model A1. 

SALES COMMISSION CALCULATION AND REPORT 

A commission report is to be prepared using 
invoice summary cards (Figure 57) for the 
source data. The cards are in sequence by 
salesman number. The invcice summary cards 
are coded with a 5 in column 1; other cards 
that are maintained as part of the invoice 
file--and are not to be processed — do not 
contain a 5 in col. 1. 

The commission amount is calculated on 
the net invcice amount. The percentage of 
commission depends upon the net invoice 
amount : 

For net invoice amounts up to (and 

including) $10,00C — 1 096 commission 
For net invoice amounts above $ 10,000 — 
12% commission 



y . Invoic* 
/S No. 



U3 



ill 

> 4 I 

Hill 
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• Figure 58. Sales Commission Calculation, File Description Specification: 



The commission is calculated on each 
invoice summary card, and the pertinent 
input and calculated data is detail 
printed. A total commission amount for 
each salesman and a final sum of commission 
amounts are accumulated and printed. 

File Descri pti on Specifications (F igur e 58) 

Only two specifications lines are neces- 
sary for this application. In the first 
line, the input file name INPUT is assigned 
to the card deck that contains the invoice 
summary cards, and that file is associated 



with the IBM 2501 Card Reader by the Device 
code READ01. In the second line, the out- 
put file named PRINT is associated with the 
printer (IEH 2203 or 1403). 

Input Specifications (Figure 59) 

Spec ifica tions li ne 01 provides for identi- 
fication of the invoice summary cards: 
character 5 in col. 1. Resulting Indicator 
11 is assigned to this card type. 

The Sequence entry (cols. 15-16) is 
alphabetic, because the presence of the two 



IBM 

n-. ZO-1-66 

Prc. 9 ,„m SALES sCoMMISHON 
Proaramm-r T. 1*1./ K ■ B. 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Punching 


Graphic 














1 


Punch 














l 



Efrffiaa 



3 4 5 


E 


Filename 

7 8 9 10 11 13 13 14 


1 

15 16 


z 


o 
o 

18 


19 20 


Record Identification Codes 


1 

| 
42 


j 

43 


Fie 


Id 


J 
32 


Field Name 

53 54 55 56 57 58 


59 60 


2 2 

1 6 

6) 62 


63 64 




Field 




Sterling 

Sign 
Position 

71 72 73 74 


i 


1 


3 






Position 

21 32 23 24 


z 

z 

25 


§ 


27 


Position 

28 29 30 31 


Z 

2 

32 


a 

33 


34 


Position 

35 36 37 38 


Z 

z 

39 


40 


41 


From 

44 45 46 47 


To 

48 49 50 51 


Pkn 
65 66 


Minus 
67 68 


Monk 
69 70 


1 




1 NPUT 


AA 






11 


<n 




c 


5 












































2 










































2 


6 




IVOICE 
















3, 










































13 


19 


4 


CUST 
















4 










































35 


U2 


2 


IVCAMT 
















3 










































W3 


U-6 




SALESM 


M 














o 






BB 
































2 


























7 
































































n . 

































































Figure 59. Sales Commission Calculation, Input Specifications 



Froqram Examples 217 



card types is optional and, when both are 
present, either may te first or they may be 
intermixed . 

Lines 02-05 describe the fields to te read 
from the invoice summary cards. Note that 
fields net used in this job are not 
described: it would waste cere stcraqe 
space to do so, and serves nc purpose. 

Although invoice number (IVOICE) and 
Salesman number (SALESM) are numeric, they 
need not be defined as numeric. On the 
ether hand, customer number (CUST) must be 
defined as numeric because Zero Suppress is 
used for that field in the Output-Format 
Specifications. (Since COST is not used in 
an arithmetic or numeric compare operation, 
any number of decimal positions within 
field size — i.e., C-7 — can be specified in 
col. 5 2.) 

Invoice amount (IVCAMT) must have 2 spe- 
cified in Eecimal Positions, because it is 
to be used in arithmetic operations where 
proper decimal aliqnment matters and where 
all fields must be numeric. 



Because Sequence (cols. 15-16) in line 
01 contains an alphabetic entry, the pro- 
gram always first attempts to match each 
card against the Record Identification 
Codes in line 01 (see Nature of th e Card- 
Type Se qu ence Check) . Only if it is not an 
invoice summary card (i.e., not 5 in col. 
1) is the card matched to the Record Iden- 
tification Codes in line 06. Since cols. 
21-41 are blank in line 06, all cards 
without character 5 in col. 1 satisfy the 
criteria for line 06. This is a crood tech- 
nique for providing for "ether card types." 
There must be an entry in cols. 15-16 for 
every card type; if there is no entry in 
cols. 15-16 for a card type that can occur 
in the data deck, the system would stop 
because cf an unidentified card type. 



A card-type Resultinq Indicator (cols. 
19-20) is net needed in line 06 in this 
particular example. All calculation and 
output operations that are pertinent only 
to the invoice summary cards are condi- 
tioned by indicator 11. 



In lin e 05 , salesman number is set up as an 
alphameric control field cf Level 1. Cnly 
cards for which indicator 11 is en are con- 
sidered in the control-field comparison 
(see also comment for line 01 cf page 04). 

Line 06 represents ether cards in the same 
input deck. These cards are part cf the 
same deck as the invoice summary cards, but 
are tc be passed thrcuqh the I/O device 
without any processing. 



The 2 in col. 42 (Stacker Select) is 
ignored when the IBM 2501 Card Reader 
serves as the input device (the form in 
which this program is written, and supplied 
by IBM) . If a different card reader is 
employed (after changing the first card in 
the File Description Specifications to con- 
form) , the invoice summary cards will enter 
the normal stacker of the device and the 
other cards in the deck will be selected to 
stacker 2. 
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Specification s li n e 1 causes the net 
invoice amount tc te compared with the 
numeric literal 10C0C. Eesulting Indicator 
22 is turned on if the invoice amount 
exceeds $10,000; otherwise indicator 22 
remains (or is turned) off. Note that 
decimal alignment is performed fcy the pro- 
qram itself in numeric compare operations. 

Line 02 provides for multiplying the net 
invoice amount by 12 percent, if indicator 
22 is on (invoice amount greater than 
$10,000); whereas li ne 03 causes mul- 
tiplication of the invoice amount hy 10 
percent, if indicator 22 is off (invoice 
amount less than, cr equal to / $1C,C0C). 
Thus, for any one invoice summary card, the 
specifications in either line 02 or line 
03 — but net both — are executed. (Decimal 
alignment is automatic in arithmetic 
operations. ) 

The result Field (CCMM) was net an input 
field, and must therefore be defined in the 
calculation specifications. This is dene 
in line C2 (it could equally well have been 
in line C3) . Half Adjust is specified in 
lines 02 and 03. Since each factor (IVCAHT 
and .12 cr .10) contains 2 decimal places 
(yielding 4 decimal places in the result) , 
and only 2 are specified fcr the result, 
the 2 rightmost decimal positions are 
dropped after half-adjustment. 

A Field Length of 8 positions is speci- 
fied for the result field: an 8-position 
field is multiplied by a 2-position field, 
which results in a maximum of 10 positions; 
two decimal positions are dropped, leaving 
a maximum of 8 positions. 

Line 04 causes the commission tc be added 
into a field named SUM, which is estab- 
lished (at program-generaticn time) by the 
specifications in cols. 43-52 in this line. 
The individual commission amounts calcu- 
lated on each invoice summary card are 
accumulated in SUM for a commission tctal 
by salesman. 

The Blank-After instruction in the 
Output-Format Specif icatiens clears the SUM 
field to zero at the end of each salesman's 
grcup of cards, so that it is ready fcr 
accumulation of commissions for the next 
salesman . 

This line also illustrates using the 
same field as addend and result field (as 
does line 05) : A+B = B'. (The field names 
in Factor 1 and Factcr 2 cculd equally well 
be reversed.) 



1. All of the above operations are per- 
formed at detail-calculation time 
(cols. 7-8 are blank) , which is the 
normal method for handling this type of 
application. 



2. All of the above calculations are con- 
ditioned by indicator 11. Therefore, 
they are performed only when an invoice 
summary card is beinq processed. 

Line 05 causes the total commission amount 

for each salesman tc be added to the field 
FINTCT, to provide a qrand-total of commis- 
sions at the end of the report. FINTOT is 
one position larqer than SUM, to assure 
capacity for the larqer total. 

The operation is performed at total- 
calculation time, provided indicator L 1 is 
on; i.e.,. at the end of every salesman- 
number control qroup — after the commission 
calculated en the last card of the qrcup 
was added to SUM, but before the SUM field 
is cleared at total-output time. 

Note that all detail-time calculation 
specif icatiens precede those for total 
time. 



Output-Form at Speci f icatio ns (Figure 61) 



Page 04 

Spe cif i cation lines 01-08 provide for 
printing columnar headings at the top of 
each page. 

Lines 01 and 02 (in an OR relationship) 
specify output to the printer, because the 
file name PRINT was associated with the 
printer in the File Description Specifica- 
tions. Line 01 calls for the printinq to 
take place at overflow-output time; line 
02 — in conjunction with the H in col. 15 
(which could equally well be a D) of line 
01 — provides for the same printinq at 
detail-output time fcr the first card of 
each salesman-number ccntrol qroup (Control 
Level L1) . 

The NL 1 in line 01 prevents duplication 
of the operation when a control break 
occurs in the same program cycle in which 
overflow (carriage-tape channel 12) is sig- 
nalled. (In this particular application, 
NOF could have been specified in line 02 in 
place of NL1 in line 1. But this is true 
only because all data here involves con- 
stants, not information from the first card 
of a ccntrcl qroup.) 
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Because nc forms-control specifications 
(cols. 17-22) are entered in line 02, the 
instructions in line 1 apply to both 
lines: the form is advanced tc the next 
channel- 1 punch before printing at 
overflow-output time or at detail time for 
the first card of a ccntrcl group. After 
printing of the heading line, the form is 
advanced 3 spaces, to leave two blank lines 
before the detail data. 

Because OF is specified in Output Indi- 
cators of a Pile-Identification line, nc 
automatic ovcrnow ±. c r in s acvance taxes 
place — it must be specified (as it is in 
line 1) . 

Note: Total-time output always precedes 
overflow-time output in the same program 
cycle; therefore, totals are normally 
printed en the eld page before forms 
advance tc a new page during overflew time. 
However, in the particular application 
described here it may appear as though the 
total were printed on the next page: 



I 
cont 
oper 
chan 
than 
the 
sale 
next 
invo 
apar 
the 
tain 



f the 
rcl-le 
ation 
nel- 12 

invci 
first 
sman n 

page 
ice su 
t frcm 
next 1 
s the 
: 2, 



File-Ident 



last invoice summary card of a 
vel group triggers the overflow 
(i.e., is printed at cr belcv the 

punch) , but other cards (ether 
ce summary cards) follcw befcre 
invoice summary card of the next 
umber, then forms advance to the 
takes place after the last 
mmary card of the grcup and — 

constant headings at the top — 
ine printed en the new page con- 
ccntrcl-grcup total. (See Warn- 
under Output Indicators — O F, OV — 
ific ati cn S peci fications . ) 



line s C3-0 8 define the constants that are 
to be printed en the. first line cf each 
page as columnar headings. 

Lines_ 97,16 specify the detail printina 
from invoice summary cards. 

Li n e 9 specifies that the output is tc 
take place at detail time (D in col. 15), 
but only for invoice summary cards (indica- 
tor 11). The form is advanced two spaces 
after each detail line (2 in ccl. 18). The 
file name (FEINT) need net be repeated, 
since it is the same as that for the last 
preceding File-Identif icaticn line. 

lin es 10 , an d 13 -1 6 describe the data 

fields tc be printed . 

The output for the fields CCMH and 
IVCAMT is formatted by edit word s--leading 
zeros to the decimal point are suppressed, 
and appropriate commas are inserted hetween 
each three pesitiens where significant 
digits appear (the fields were defined as 
numeric, and therefore can be edited) . The 



assignment of an edit word eliminates the 
plus (C) zone in the lew-order position of 
COMM from the output; if IVCAMT was zoned 
in the input card, that zone is also eli- 
minated from output by virtue of the edit 
word . 



Any leading zeros, and a possible low- 
order-positicn zone, are eliminated from 
the output for CUSI by Zero Suppress (Z in 
col. 38) . The field must have been — and 
was — defined as numeric. 

Field selection is Performed in lines 11 
and 12: one of the two constants (10 % or 
12 %) is printed, based en the result of 
the CCMP operation in the calculation 
specifications (indicator 22 off or on) . 

The L1 in Output Indicators of line 16 
conditions the contents of the field SALESM 
to be printed only when indicator 11 is on 
at detail-output time--i.e., on the first 
card of a control group (group-indication) . 

li nes 1 7-1 9 provide for the printing of the 

commission total (SUM) at the end cf each 
control group (LI in Output Indicators of 
File-Identification line) , at total-output 
time (T in col. 15) . The form is spaced 2 
lines before printing, which — in conjunc- 
tion with the 2 spaces after each detail 
line — creates 3 blank lines before the 
total line. The word TOTAL is printed to 
the left of the amount. 

The Blank-After (E in col. 39) instruc- 
tion resets the field SUM to zero as soon 
as the contents have been transferred to 
the output core-storage area. The field is 
then ready for acculumaticn of the total 
for the next control group. 

The file name (PRINT) need not be 
repeated in the File-Identification line. 



Page 05 

Line s 1-0 3 contain the specifications for 
printing the grand total commission amount 
for the report. (The file name need not be 
repeated.) Output is at total time (T in 
col. 15) , after processinq of the last data 
card (LR indicator on) — it must be at 
total-output time, because the operaticn 
terminates after total-output time when LR 
is on . 

The words FINAL TOTAL are printed to the 
left of the amount. 

The form is advanced 3 lines before 
printing (3 in col. 17) and to the next 
page after the final total (01 in cols. 
21-22) . 
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Figure 62 shows a sample report based en 
the program defined above. It pcrtrays the 
first control group and final total as 
actually produced if the sample deck 
supplied by the Program Information 
Department is run. 



PSE-BILLING_CALCULATICN_HIIH_I^E1T0RY 
CONTROL 

This example illustrates one of numerous 
approaches to an crder-prccessing/invertory 
control job. The application has been 
arbitrarily slanted to a distribution 
business — perhaps a mail-order house — with 
customer orders to be filled frcir. warehouse 
stock. An attempt has been made to be 
reasonably realistic in the application, 
includinc the complexities of such a multi- 
purpose operation. 

M ote : Figures 63 and 64 should te con- 
sulted in relation to the discussion that 
follows. 



3. 



A card has been 

(a) For each ite 
order--Card 

(b) For each ite 
return — Card 

(c) For each ite 
receipt (or 
are used as 
Card 5; 

(d) For each sto 
No X in col. 
X in col. 1 1 

(e) For each ite 
order — Card 
when ordered 
is cancelled 

(f) For a new st 
price,- descr 
tion, etc. 
are removed 
separately f 



keypunched : 
m line on a customer 
9, no X in col . 11; 
ro line on a customer 

9, X in col. 1 1; 
m line on a stock 
purchase-order cards 
stock receipt cards) — 

ck ad justment--Card 6: 
1 1 to reduce on hand, 
tc increase on hand; 
m on a stock purchase 
7: no X in ccl. 11 
, X in col. 11 if order 
or reduced, 
cck item or a change in 
iption, warehouse loca- 
(Obsolete master cards 
manually or, at least, 
rom this operation.) 



Note: The sixth digit of Stock No. 
could be the check digit for a self- 
checking number. (See Self-Checking 
Number Device for keypunches.) 

An Inventory Master Card file exists, 
with one card per item carried in 
stock. Changes to the file are made 
manually, or in seme other data proces- 
sing operation (i.e., addition and 
deletion of items, changes in price, 
warehouse location, etc.). 

It is desired to process customer 
order-item cards against inventory 
records before attempting to fill the 

orders in the warehouse. At the same 

time, the inventory records will be 
updated and an up-to-date inventory 
report prepared. 

The customer-order cards are 
thereafter ready for invoicing. (The 
cards could be sorted by warehouse 
location prior to invoicing.) A copy 
of the invoice, or the cards them- 
selves, serve as order-picking medium — 
i.e., either seguential or bulk picking 
is employed. 

If orders are processed once daily 
on this basis, the inventory records 
are always up to date. 

N ot e: The third example utilizes these 
customer-order cards. 

If the guantity cn-hand is insufficient 
to satisfy the guantity in the 
customer-order card, no partial guanti- 
ty will be applied for that item. The 
item order: 

(a) Win be marked for back order if 
not previously back-ordered, and 
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5. 



6. 



7. 



provided stock is en order; or 

(b) Will be marked "cancelled" if no 
stock is en order; or 

(c) Will be marked "cancelled" if pre- 
viously back-ordered. (Say, back 
orders are reprocessed one week 
after they became tack orders.) 

Where previously back-crdered item 
cards are reentered, they are to 
receive priority for available 
inventory. 



price when at least the specified cri- 
terion quantity is ordered by the 
customer. 

Stock adjustments are made without 
attempt at modifying the unit cost of 
the item. 

(a) Eesides price extension, qross pro- 
fit is to be included in the item 
detail cards for a subsequent 
report by merchandise class and 
division, and by Stock No. (The 
first digit of Stock No. repre- 
sents merchandising division, the 
secend the classification within 
division. ) 

(b) Value of inventory on hand (average 
cost basis) is tc he continually 
available. 

(c) available quantity (on-hand plus 
cn-crder) less than an established 
minimum is to be signalled . 



Proced ural Deta ils 

1. Safeguards. 

(a) Certain control totals will be car- 
ried, partially as audit trails. 
Control totals are presumed to have 
been established for the various 
kinds of transaction cards, so that 
new on-hand and cn-crder totals can 
be proved out. 

(b) Customer-order detail cards that 
are being cancelled will be identi- 
fied. If such a card is reentered, 
it is selected out, and calculation 
fcr it is bypassed. 

(c) Matched old master cards — for which 
new ones are created — will be iden- 
tified, and selected tc a separate 
stacker. If such a card is acci- 
dentally reentered, the entire 
stock-number group is selected to a 
separate stacker, and calculation 
is bypassed. 

(d) The entire stock-number group 
(exept the first card) is selected 
tc a separate stacker, processing 
is bypassed, and the system halts 
after the second card, whenever 
there is more than one master card 
for a group. 



(e) The entire stock-number group is 
selected, and calculations are 
bypassed, when a master card with a 
negative on-hand guantity has been 
read. 

When a neqative on-hand quantity 
is created as a result of calcula- 
tion, the cards from the point of 
error are selected, and calcula- 
tions are bypassed. 

(f) Whenever the blank trailer card is 
missing or mispositioned within the 
group, all cards in the group from 
the point of the error detection 
are selected, the system halts ? and 
further calculation is bypassed for 
the group. 

(g) Unmatched transaction cards, 
includina the trailing blank card, 
are selected, and calculations are 
bypassed. 

(h) If the on-order quantity turns 
negative, the system halts. The 
inventory report also indicates 
this condition. 

(i) For known error conditions that 
affect the new inventory values, 
the data is emitted from the report 
(the cards have been selected to a 
separate stacker) . 

Any merchandise receipts, stock adjust- 
ments, and customer returns precede 
order-item details, so that the custom- 
er orders are correctly applied to the 
latest on-hand status. 

Stock purchase-crder cards are also 
placed ahead of customer order details, 
because it was decided not to back- 
order items for which no stock is on 
order. 

Former back-order cards precede 
ether order-item cards to get first 
chance at on-hand goods. 

The cards are assumed to be in ascend- 
ina seguence by Stock No. 

Inventory master cards are to be in 
the primary feed of the MFCM — preceded 
by a sinqle card to read in today's 
date. All other cards will be placed 
in the secondary feed. 

A previous operation has placed a 
blank card at the end of each Stock No. 
qroup of secondary-file cards. These 
blank cards will become the new 
(updated) inventory master cards for 
stock numbers for which there are 
transactions. (These blank cards were 
merqed in on the MFCM of the Model 20, 
usinq the PLACE specification card of 
the Punched-Card Utility Collate 
proqram or an RPG program; or they 
could have been merged on a collator.) 
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4. Stacker Selec 

(a) The Date 
stacker 1 
do equall 

(b) All old i 
stock num 
transacti 
file are 
ncrmal st 
obsoleted 
inventory 
punched — 



tion. 
header ca 
; any oth 
y veil, 
nventory 
bers for 
on cards 
directed 
acker — ch 
cards) , 
master c 
and place 



rd is directed to 
er stacker wculd 

master cards with 
which there are 
in the secondary 
tc stacker 1 (the 
osen tc contain 
because a new 
ard will be 
d in stacker 2. 



Each unmatched old inventory 
master is selected to stacker 2, 
because no new master is punched in 
such case. 

Stacker 2 ultimately contains 
the complete up-to-date inventory 
master file (except for known 
error-condition cards) — consisting 
of new cards where transactions 
occurred and old masters where no 
transactions applied. 



(c) Stacker 3 rece 
order-item car 
house picking 

(back-orders) 
to be sorted o 
numbers for in 

(d) Stacker 4 has 
unmatched tran 
dary file) , an 
detected error 

(e) Stacker 5 has 
stock orders, 
ments, and mer 
These may also 
with the other 
directing them 
instead; they 
segregated lat 
cols. 1 and 11 



ives the customer 
ds, ready for ware- 
(if cancelled and BO 
are sorted out) , or 
n order and account 
voicing. 

been assigned to 
saction cards (secon- 
d tc all other 
-condition cards, 
been assigned to 
receipts, adjust- 
chandise returns, 
be left together 
transaction cards by 
to stacker 3 
could easily be 
er by sorting on 



1 Note : When stacker 5 is desig- 
l nated, but the I/O device referred 
• to is the 2560 MFCM Model A2, the 
; card is directed to stacker 4. 
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Figure 63. Pre-Billing with Inventory Control, Card Layouts 
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Figure 6 4. Fre-Billing with Inventory Control, Diagram of Card Flew 



Study of figures 63 and 64 will clarify 
the details cf the cperaticn. The report 
has teen laid out (see Figure 65) to fit 
within the 120-pcsiticn print span of all 
IBM 2203 and 1403 Printers attachable to 



Model 20. Explanation of specifications 
sheets fellows; Figure 70 (Assignment of 
Indicators) will also help in following the 
discussion. 
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Figure 65. Fre-Eilling with Inventory Control, Layout of Inventory Eeport 
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• Ficure 66. Pre-Eilling with Inventory Control, File r : : cripticn Specifications 



File Description Specifications (Figure 66) 

The file cf inventory master cards is named 
CLDHASTE, and associated with the primary 
hopper of the MFCH. It is defined as a 
combined file (C in col. 15) sc that stack- 
er selection may be performed via output 
specifications, and to allow punching cf a 
code for "obsolete" at output time intc 
these eld masters that are replaced as a 
result cf new transactions. 

The detail transaction cards are 
assigned to the file named TRSACTN, and 
associated with the secondary hopper of the 



MFCM. Stacker selection is dependent on 
calculaticn operations; therefore — and 
because cutput is reguired to some 
customer-order item cards--TESACTN is a 
combined file. 



The input files are in ascending 
sequence (A in col. 18) . A seguence is 
reguired, and must be uniform for the input 
files, when matching of records in two or 
more files is called for. If col. 17 is 
blank, or contains E, for all input files, 
the LR indicator does not turn on until all 
input files are exhausted. 
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Figure 67 (Part I cf II) . Pre-Billing with Inventory Control, Input Specifications 



The printer is associated with an output 
file named REPORT. 

Input Spec if icati on s (Figure 67- -Pa rts I 

and III 

Because the file CLDMASTE is specified 
ahead of the TRSACTN file, it is therefore 



the primary file; i.e., matching cards from 
the OLDMASTR file are processed ahead of 
their matching TES ACTN-f ile cards. 
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Figure 67 (Part II of II). Pre-Eillinq with Inventory Control, Input Specifications 



Inventory Master Cards — CIDMASTE File (Page 
02) 



The eld Inventory Master cards are identi- 
fied by in col. 1, and assigned indicator 
01. Since they are the only card type in 
the file — apart frcm the initial single 
Date card — an alphabetic cede is specified 
in Seguence (eels. 15-16). (If any 
other--undef ined — card types (besides the 
Date or Master card) appear in the file, 
the system halts.) 

Li nes, 02-1 8 contain the normal specifica- 
tions for reading these fields frcm the old 
Inventory Master cards that may be needed 
for prccessing cf the application (see 
Figure 63 for greater detail on the card 
fields) . Fields defined as numeric are 
used in calculations, edit operations, or 
numeric compare. Points cf special inter- 
est are: 



1. Stock No. is defined as numeric to 
allow formatting in the output by edit 
word, and to simplify detection of an 
obsolete master card (see 4, below) . 

2. The files are matched and sequence- 
checked on Stock No. (M1 in cols. 61- 
62 for Stock No.) . 

3. The L1 indicator is turned on for the 
first card of each stcck-number group 
(L1 in Control Level for Stock No.). 

L1 is not used in this program for 
total printing or punching — it is used 
solely to recognize the first card of a 
group for error-control purposes. L- 
indicatcrs have no inherent connection 
with matching of files, and L1 is not 
needed merely because M1 is assigned. 

U. Whenever an old Master Card is replaced 
by a new one, to reflect transactions. 
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5. 



6. 



7. 



tne ciq csllo. is uvej. j-uiiCueu «iui an 
11-punch in ccl. 7 at output time (page 
07, line 06) tc mark it as obsolete* 
If such a card is accidentally reen- 
tered next time, indicator 97 turns 
on — the 11-punch causes the Stock No. 
tc read in as negative (a matching- 
field seguence error dees not, however, 
arise because all zone punches are eli- 
minated from the matching-f ields opera- 
tions cf a numeric field). 

Indicator S9 turns on if the Quantity 
Cn-Hand is negative in the old Inven- 
tory Master card. Such a card should 
never appear, because subsequent speci- 
fications (page 04) cause output tc be 
bypassed if On-Hand turns negative. 

Indicator 20 turns on if the Criterion 
Quantity field is zero. The zero code 
indicates that only Unit Price A 
applies, and that the Price-B field is 
to remain blank both in the report and 
in a new Inventory Master card. 
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8. Stacker assignment is net known until 
calculations are performed. It must 
therefore be specified at output time. 

Pate Card — CLDMASTR rile (Page 03) 

Ihe single Date card at the front of the 
file is identified by an X-punch in ccl. 1, 
and assigned indicator 09. The date is 
stored in a field given the name DATE. It 
is defined as numeric to allow editing. 

No matching is specified for this card. 
It is therefore processed first. 

The Date card is to enter the normal 
stacker for the MFCM primary hopper and, 
therefore, need not have stacker selection 
specified. However, when no output opera- 



tion is tc be performed on a combined-file 
card type, and the desired stacker number 
is known at input time, a stacker-selection 
specification — even for the normal 
stacker — should be given in the input 
specifications: this maximizes I/C over- 
lap. (For a single card in an entire file, 
this is cf course insignificant.) 

The file Name need net be repeated where 
no others intervened. 

Mote : The Date card is specified after the 
eld Master cards, although it cccurs first, 
so that the program need not attempt a 
match against its record-identification 
code each time a card is read from the 
OLDMASTR file (see Mature o f t he Card-Type 
Se guence Check) . 

Transaction Cards (Except Elank Trailers) — 
TRSACTN File (Page 03) 

The four types are identified, and assigned 
separate indicators. The customer-order or 
merchandise-return item card is checked for 
digit — rather than character — 9, because 
back orders have an X-overpunch in col. 1. 

Stacker selection is dependent on calcu- 
lations, and is therefore assigned in the 
output specifications. In the case of card 
type 9 (indicator 15) , output to the card 
is also reguired: this precludes stacker 
selection in the input specifications. 

Points to note: 

1. Indicator 21 is turned on for order- 
item cards that were previously back- 
ordered: 11/9 in the lew-crder, or 



cates a negative value. (Back-order 
cards are so designated at output 
time --page 07, line 17.) 

The field BOCARD is not used in the 
program; it is assigned only so that a 
Field Indicator may be set. Alterna- 
tively, a separate card-type Resulting 
Indicator could have been assigned via 
an OR line. 

The same name is assigned to Stock No. 
here as for the CLDMASTE file, to con- 
serve core storage space. No harm is 
dene because there is no situation in 
this program where the distinction 
needs to be preserved. 

When an order-item cannot be filled, 
and is not to be back-ordered, col. 7 
cf the card is cverpunched with an 1 1- 
punch (page 07, line 18) to designate 
"cancelled." If such a card is inad- 
vertently reentered, indicator 98 turns 
on because the 1 1-overpunch causes 
Stock No. to he read as negative. 
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4. Indicator 22 distinguishes between 
order-item and merchandise-return 
cards — bcth card-type Eesultinq Indica- 
tor 15. 

5. The fields UNCCST applies cnly tc 
Receipt cards. No harm is dene reading 
it alsc frcm card types with Resulting 
Indicators 12, 13, and 15, because uti- 
lization in the calculation specifica- 
tions is confined tc card type 1 1 (page 
05, line 06) . If it were necessary to 
restrict the input of this field tc 
Receipt cards, the indicator number 
(11) wculd be entered in Field-Record 
Relation (eels. 63-64). 

Elank Trailer Card — TRSACTN File (Page 03). 

The trailer cards—destined to beccme new 
Inventory Master cards — are identified by 
absence cf a punch in col. 1, and are 
assigned indicator 19. 

The blank trailer card at the end cf 
each stock-number qroup in the TRSACTN file 
is net matched (no entry in Batching 
Fields) aqainst the CLEMASTR file; there- 
fore, it is processed immediately after the 
card it follows in the same file, before 
the Inventory Master card fcr the next 
Stock No. 

Calculatio n Speci fications (Fi gure 

68- = Parts_I jL _II_and_IIIJi ? 

In order to minimize the need fcr condi- 
tioning indicators {Indicators, cols. 
9-17), branching (GOTO) ever entire sec- 
tions has been employed tc bypass a series 
of inapplicable calculation specifications. 



Where practical, specifications lines 
are discussed sequentially. In seme areas, 
however, it is preferable, fcr clarity, to 
relate ncn-ccnsecutive lines. 

Note : In several instances, result fields 
are defined as smaller than the 
theoretically possible maximum. We assumed 
that knowledge of the particular business 
indicated that these field sizes are 
adequate for the actual figures that cculd 
occur. 



Where such cases involve multiplication 
or division, the RPG program will, during 
ob ject-proqram generation, cause printinq 
of the message "RESULT FIELD MAY NOT BE 
LARGE ENOUGH", prefixed by ,the letters C 
C ("Cautionary" message pertaining to "Cal- 
culation" specifications) and followed by 
the consecutive numbers of the relevant 
specifications cards. Generation will, 
however, proceed properly. 



Date Card (Card-Type Resultinq Indicator 
09) — Page 04, Lines 01 and 02 



No calculation operations are performed en 
this card. Indicator 93 is turned on (line 
01) solely for use in a subseguent check on 
proper card-type sequence (line 05) . The 
entries in line 02 cause branching to the 
end of the calculation specifications (page 
C6, line 20) , so that N09 need not be spec- 
ified in Indicators in subseguent lines. 



Error Control — Paqe 04, Lines 3— 1 i 



Calculation specifications are employed to 
test for certain errcr conditions. Where 
an error is recognized that affects only 
the individual card, calculations are 
bypassed fcr that card, and the card will 
be selected (by output specifications) to 
stacker 4; where the effect pervades the 
entire stock-number group, all calculations 
for the group are bypassed from the point 
of error recognition, and those cards will 
be selected to stacker 4. For certain 
error situations, the system is also 
ha-lte-d-; — 

Indicator 90 is set on for all of the 
major error conditions tested for, and is 
used to specify the bypassing of calcula- 
tions and the selection (see output speci- 
fications) cf the qroup tc stacker 4. 

Speci fications line 03 clears indicator 90 
at the beqinning of each control qroup 
(i.e., stock-number qroup), so that the 
error actions do not carry through to the 
next qroup. 
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will be bypassed, and the cards selected to 
stacker 4. 



If none of the conditions (a) , (b) cr 
(c) applies when the first card cf a con- 
trol group is processed, the blank (i.e., 
the new inventory master) card is missinq. 

Indicators 91, 92, 93, and 94 are reset 
appropriately in lines 06 and 07 so that 
error conditions are not spuriously sig- 
nalled in a subsequent cycle. (The reset 
of indicator 24 each program cycle is 
related to its use in line 14 of page 05 
and lines 17 and 18 of page 07.) 

Exces s blank trail er car d. Indicator 91 is 
turned on in line 17 if indicator 19 (blank 
card) is en. Next program cycle, indica- 
tors 90 and H2 are turned en if indicator 
91 is still on when the instructions in 
line 14 are reached by the program. Hew- 
ever, if indicatcr L1 (first card cf ccn- 
trcl group) is on when the instructions in 
line 07 are reached, indicator 9") is turned 
cff. 

Thus, an error is signalled (90 and H2 
are turned on) if there is ne ccntrcl break 
(L1) following a blank card (9 1 turned on 
by 19) : trailer card present tut not at 
end cf grcup. 
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In line 10, indicator 90 is turned en if 
H1 was turned on in line 08, so that all 
processing for the remainder of the grcup 



Obsolete o ld Inventory, Master c ard . As 
explained with Figure 67 (Input Specifica- 
tions) , indicator 97 turns on if the Stock 
No. in the old master card is negative, 
signalling reentry into the operation of a 
previously cbsoleted card. 

In line 13, indicator 90 is turned on if 
that situation exists. 

Neg ative on-hand in el d Inventory Master 
card. As explained in Figure 67, indicator 
99 turns on if the On-Hand field is nega- 
tive at input time of the old Master card. 

In line 11, indicator 90 is set on for 
that condition. 

Cancelled order-ite m card . As explained 
with Figure 67, indicator 98 turns on when 
a transaction card with a negative stock- 
number field is. read. This signals reentry 
of a previously cancelled order-item card. 

Indicator 98 is used to specify bypas- 
sing cf calculations fcr that card only 
(see line 15) , and its selection to stacker 
4; but the remainder of the grcup is pro- 
cessed normally because it is not otherwise 
affected. 

Unmatched transacticn cards. The specifi- 
cations in line 12 cause indicator 90 to be 
turned on for unmatched cards (NMR) , other 
than Inventory Master cards (N01), and 
other than blank trailer cards (N19) which 
are always unmatched. 

Bypa ssing calcul atic ns f cr t he er r cr group . 
In line 18, the program branches to END 
(line 20 on paqe 06) when indicator 90 is 
on. This makes detail output the next 
operation, omitting all calculations below 
line 17 on page 04. 

Lin e 19 illustrates use of a Comments card 
(* in col. 7) . It will be printed durinq 
generation as punched, but ctherwise it 
does not enter the generation process. (It 
is checked for proper position, based on 
cols. 1-6.) 
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Bypassing Detail-Card Operations en Master 
Cards—Page 04, Line 20 and Page 05, Lines 
01-03 

Line 20 c f page 04 provides program skip- 
ping past all the specifications lines that 
do net apply to the new Inventory Master 
card (i.e., the blank trailer card). Ihis 
minimizes the need for N19 specifications 
in Indicators in subsequent lines. 

In l ine CI of page 05 the Average Unit Cost 
from the eld Inventory Master card is saved 
for later determination cf cost trend when 
compared with new merchandise costs. 

In line 02, all calculations are terminated 
for eld Inventory Master cards that will be 
replaced by new ones (i.e., there are 
matching transaction cards) . 

In ii£e_0J, the prcgram skips--fcr eld Mas- 
ter cards that are to be retained (i.e., 
there are no transactions) — to the same 
point at which calculations are resumed for 
new Inventory Master cards. This permits 
uniform preparation cf report data fcr both 
situations . 

Merchandise-Receipt, Stock-Ad justment , and 
Stcck-Order Cards — Lines OH- 11 of Page C5 

In line_C4, the Cn-Order quantity is 
revised tc reflect merchandise Receipts, 
new purchase Stock Orders, and cancellation 
cf Stock Orders. Cards 5 and 7 are sc 
coded in eel. 11 that addition provides the 
proper algebraic operation (see figure 63) . 
The system is halted if the operaticn 
results in a negative On-Order guantity. 
(Indicator 90 is not turned on, because 
such an error' was" not deemed of sufficient 
significance to reguire bypassing cf the 
remainder cf the group.) 

Line 5 provides for extending the ccst of 
a stock adjustment, based en last-knewn 
unit cost, so that the value of the inven- 
tory may be adjusted (in line 07). A new 
work field (CSTEXT) is set up for the 
product. 

Line 6 provides for the same operaticn as 
line 05, but using the specific unit ccst 
at which new merchandise was received. 

In line_07, the extended ccst of an Adjust- 
ment or merchandise Receipt is algebraical- 
ly subtracted frcm the total Inventory 
value of the stock item. The signs in 
cards 5 and 6 are appropriately coded (see 
Figure 63) . 

In line 08, the On-Hand guantity is updated 
to reflect Receipts and Adjustments. Indi- 
cator 90 is turned on if Cn-Hand has become 
negative; further calculations are then 
bypassed fcr that stcck-number group (ty 



entry in line 09), and the cards from this 
point en are selected to stacker 4 (output 
specifications) . 

In line 1 0, a new Average Unit Cost is 
established during processing of Receipt 
cards, because each of these cards contains 
unit cost. (In lines 06 and 07 we adjusted 
the Inventory Value to reflect the cost of 
the new Receipt proportionately.) 

The quotient is half-adjusted. 

Division by zero is not permitted, nor 
meaningful. Indicator 26 (turned on in 
line 08 if Cn-Hand was greater than zero) 
is therefore a cenditicning indicator. 

Lin e 1J causes termination of calculations 

for cards 5, 6, and 7. 

Order-Item and Merchandise-Return Cards — 
Lines 12-15 on Page 05 and Lines 01-10 on 
Page 06 

No conditioning indicators are needed to 
restrict these specifications to this card 
type: pricr entries have branched past 
these lines for all other card types. 

In line 12, the quantity in the customer- 
order card is subtracted from Quantity On- 
Hand. Merchandise-Return cards are auto- 
matically added because they are X-over- 
punched in col, 11. 

A merchandise Return card cannot cause 
On-Hand to turn negative. If On-Hand was 
already negative, entries in lines 08 and 
09 caused branching to END. Therefore, 
indicator 23 turns en only for a customer 
order-item card containing a guantity 
larger than the positive or zero On-Hand 
guantity. 

Lines 13-15 are executed only to handle the 
insufficient-stock situation (i.e., indica- 
tor 23 is on) . In accordance with our 
Basic Assumptions: 

a. No order-item will be partially 
filled; 

b. No item card will be back-ordered 
if it was previously back-crdered; 

c. No item will be back-ordered unless 
merchandise is on order. 

In Line 13, the guantity is added back to 

On-Hand, to restore the prior status. 

In Line 14 , indicator 24 is turned on if 
Quantity On-Order is greater than zero 
(COMP operation) , provided the card was not 
previously back-ordered (N21--see page 03, 
line 07). Indicators 23 and 24 determine, 
in the output specifications, whether the 
card is to be identified as Back-Ordered or 
Cancelled (page 07, lines 17 and 18). 

Indicator 24 is turned off each cycle 
(see page 04, line 06) before this point is 
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reached, because line 14 is= not executed 
each time. Incorrect card identification 
in ccl. 1 would otherwise te punched when 
non-hackcrder cards follow a tack-crder 
card. 

line 1 5 causes branching tc the end cf the 
calculation specifications for order-item 
cards that could not be filled. The speci- 
fications in lines 02-10 of page 06 will 
not be executed for these cases. 

Cn page 06, lines 02, and 03, respectively, 
set on indicator 27 if the customer-crder 
or merchandise-return guantity is egual to 
cr greater unan une ^riuerion yuan ti uy nidi. 
gualifies for Price B. 

We are on j.y interested in the Resulting 
Indicator — not the actual result guantity. 
However, an arithmetic operation reguires a 
result field. In order not to waste core 
storage space, a field only temporarily 
needed elsewhere (page 05) — but now 
available — has been utilized. A numeric 
Compare operation is always algebraic; 
therefore, a mere complex routine would 
have had to be substituted for the ADD 
operation in line 03 (where QTY is nega- 
tive) if COMP were to be used instead. 

line 04 places Price A intc a new field, 
UNPRIC, which will be used for the unit- 
price factor in the selling-price 
extension. 

In line C5 , Price E is substituted for 
Price A. in the UNPRIC field — but enly pro- 
vided the guantity in the crder-item or 
merchandise-return card satisfied the cri- 
terion (lines 02 and 03) and provided cri- 
terion Quantity was not C (N20 — see pace 
02, line 06) : zero in ccl. 22 indicates 
that Price A applies in all cases. 

In lin e 06 , the guantity in the item card 
is multiplied by the unit price previously 
selected (lines 02-05) . The new field, 
EXTPRI, will be negative fcr a merchandise- 
return card, because guantity is negative. 

In line 07, cost of the item sale or return 
is calculated, using the Average Unit Cost 
as updated during processing of any stock 
Receipt cards (page 05, line 10) . Again, 
the same work field (CSTEXT) is utilized, 
because the product is net needed beyend 
line 08. 

In lin e 08 , gross profit is calculated for 
each item card. For merchandise returns, 
the sign is automatically reversed: 
-EXTPRI - (-) CSTEXT = -GRSPRO (unless sel- 
ling price is less than Average Unit Cost) . 

-- iine_0.9, Quantity Sold This Year To Date 
is updated for this item card. Returns 
reduce the value, because guantity in these 
cards is negative. Eecause it is possible 
for returns early in a year to exceed 



sales, provision is made for a negative 
total (page 11, line 17 — edit word). 

Line 10 terminates calculations for card 9. 

New Inventory Totals - Lines 11-19, Page 06 

This section contains the specifications 
for completing the data needed (1) to punch 
the new Inventory Master cards for stock 
numbers with transactions, and (2) to print 
the Inventory Status Report for all stock 
numbers. 

No conditioning indicators are reguired 
because uiie program nas jjeen insi.ruci.eu, in 
earlier lines, to branch past this 
section — to END (line 20) — for all card 
types except blanK trailer cards or 
unmatched (i.e., no transaction) old Master 
cards. 

Line 16 is not needed when there are no 
transactions; but there is no harm in 
executing it. Although there is no change 
in Average Unit Cost when there are no mer- 
chandise Receipt cards in the group, line 
1 5 (in conjunction with line 01, page 05) 
provides a uniform method of determining 
cost trend that sets the indicators appro- 
priately regardless cf whether there has 
been a Receipt. 

Lin e 1_1 is the destination point tc which 

the program branched from page 04, line 20 
(blank trailer card) or page 05, line 03 
(unmatched old Inventory Master card) . 

Line \2 provides for determining whether 

the item is new this year (X-punch in col. 
47 of old Master card--see line 11, page 
02) , Indicator 30 will be used in output 
specifications to control punching into 
cols. 43-47, and printing in print posi- 
tions 54-59. 

In line 1 3, the available guantity (On-Hand 
+ On-Order) is calculated for the report. 

In line 14, indicator 31 is turned on if 

the available guantity is less than the 
minimum specified in the old Master card, 
so that this condition can be signalled by 
a symbol in the report (print position 
120) . 

In line 16, the updated Inventory Value is 
calculated after all transactions have been 
processed. 

Lines 17—1 9 contain the specifications for 

summing guantity On-Hand, guantity On- 
Order, and Inventory Value for report grand 
totals. 

The first two serve only as audit trails 
and contrcl totals — to balance out former 
totals with control totals for Receipts, 
Adjustments, Stock Orders, merchandise 
Returns, Back-Orders, and Order-Item cards. 
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The Inventory Value total is also an impor- 
tant figure for management. 

Line 20 represents merely the destination 
point to which the program branched frcm a 
number of previous lines when calculations 
were complete. It is followed ty detail- 
time output. 

Outp ut-Format Specifications (Fig ure 

69 — Parts I-VI) 

All output is at detail time (C or H in 
col. 15) — except for grand totals, based on 
IE indicator which terminates the job after 
total-output time. 

Cld Inventory Master Cards — OLDMASTR File 
(Page 07, Lines 01-06) 

Lines 01-03 specify different stacker 
selection for card types in an OR 
relationship : 

Cards with major errors (indicator 90 
en — see page 04) are selected to stack- 
er 4; the remainder (i.e., the bulk) 
are selected to stacker 2 if unmatched 
(NMR) , or stacker 1 if matched (ME). 
(Stacker 1 — the normal stacker — need 
not be specified.) 

Thus, when a new Master card will be 
created because there were transactions, 
the matched old Master is directed to 
pocket 1; if no new Master is created, it 
is directed to stacker 2, which will also 
receive the newly punched Masters for 
groups with transactions. 



the stacker selection designated for it 
in the input specifications. 

Line C4 specifies that obsolete old Inven- 
tory Master cards (which are replaced by 
the trailer card of the matched 
transaction-card group) are to receive an 
11-punch in col. 7. This is the safeguard 
against accidental reentry of these cards 
next time (see indicator 97: page 02, line 
02 and page 04, line 13) . 

Not e: Indicators in File-Identification 
lines of card types in an OE relationship 
are tested in seguence: if indicator 90 is 
on, line 01 is applied. Therefore, N90 is 
not needed in the next two lines. However, 
in line 04, N90 is necessary, because each 
Field-Description line is considered separ- 
ately for all card types in an OR 
relationship. 



Transaction Cards: Eeceipts, Adjustments, 
Stock Orders, and Errors--TRSACTN File 
(Page 07, Lines 07-12) 

Cards of qroups with major recognized 
errors are selected to stacker 4. A pre- 
viously cancelled order-item card that was 
inadvertently reentered (indicator 98 — see 
page 03, line 08) is also selected to 
stacker 4. 15 is specified in line 08 
(with indicator 98) so that additional 
cards following a cancelled order-item card 
are not also selected: indicator 98, once 
on, is not reset until the next transaction 
card other than a blank is read. 



Indicator 01 is needed: 

+ ff To- p re-vent- old- -M as ter ■- ear-d-s— of- - t-h-e - -£■ el— 
lowing stock-number grcups being passed 
through output operations — without 
being read — in the program cycles dur- 
ing which matched seccndar_y cards are 
being processed (ME en) ; and 

2. To prevent an cld Master card being 
passed through output operations — 
without being read — during the detail- 
time cutput preceding the reading cf 
the first card (at 1P time. MR is then 
off; thus, HME would apply) — see EFG 
Program Logic, Figure 6. 

3. To prevent performance of this cutput 
for the Date card (during whose proces- 
sing NMR applies). The Date card was 
specified as reguiring input enly, by 



Receipt, Stock-Adjustment, and Stock- 
Order cards are selected to stacker 5. 
■■Tfee-y----eo«i^:--in-st:ettd--"i^e--thi-rect-ed--- , to-~st:a:cker---3 
with the order-item cards and subseguently 
sorted apart on Card No. (col. 1) . 



Order-Item and Merchandise-Return Cards — 
TRSACTN File (Page 07, Lines 13-19 and Page 
08, Lines 01-09) 

By the entries in line s_1 3- J_6 , Merchandise- 
Return cards (indicator 22 on — see page 03, 
line 09) are directed to stacker 5, whereas 
order-item cards are selected to stacker 3. 
(The Returns cards could also, of course, 
be selected to stacker 3, and subseguently 
sorted apart by the X-overpunch in 
col. 11.) 

The file name need not be repeated in 
line 13. 
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Figure 6S (Parts V and VI of VI) . 
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Line__17 provides for an 11-overpunch in 
col. 1 of order-item cards beinq back- 
ordered--see paqe 05, lines 12 and 14, for 
indicators. 

Line_J8 specifies an 1 1-cverpunch in ccl. 7 
for order- items to be cancelled — see page 
05, lines 12 and, 14, for indicators. 

line 19 on page 07 and lines, 1-05 on page 
08 provide for punching of the pertinent 
data. Description (line 19) is net punched 
into formerly back-ordered cards (indicator 
21 on — see page 03, line 07) because it is 
punched the first time these cards are pro- 
cessed. The other fields (lines 01-C5) are 
not punched into cards new being back- 
ordered cr cancelled (indicator 23 on) — 
they will be punched into the back-ordered 
cards when they are reprocessed, if the 
order-item is then filled. 

Lines 06-0 9 provide for document printing 
"• (interpreting) en the order-item and mer- 
chandise Return cards, on an HFCM Model A1. 

Warehouse location (line 08) is printed 
only if the item was filled, because the 
goods could be at a different location when 
new merchandise is received and the back- 
crders are filled. 

The other three items are interpreted 
the first time the card is processed (to 
facilitate card handling) , and are there- 
fore net printed again on previously back- 
crdered cards. 

Stock No., Quantity, and Warehouse Loca- 
tion are printed by print head 1; Account 
No. is printed by print head 2. 

Stock No. (line 06) is edited with 
hyphens between diqit positions two and 
three , and E etween "The " f if "t"FT "a "net" six th" "(the 
presumed self-check digit) . The third 
hyphen in the edit word is in the status 
portion and identifies a cancelled card. 
All leading zeros, except the first, are 
preserved. 

Zero Suppress is used to eliminate lead- 
ing zeros in Account No. (line 09) . 

Note: These cards hereafter contain all 
the information needed to: 

1. Run invoices; 

2. Serve as warehouse picking tickets; 

3. Run sales, cost-of-sales, and gross 
profit reports by stock number and mer- 
chandise class. 



Punching New Master Cards (Blank Trailer 
Cards) --TRSACTN File (Page 08, Lines 10-19 
and Page 09, Lines 01-11) 

The pertinent fixed data frcm the old Mas- 
ter card and the updated variable informa- 
tion are specified for punching as per the 
card layout (Fiaure 63) . 



If Criterion Quantity was (indicator 
20 on — see page 02, line 06), the field for 
Price B (line 15) is left blank. If the 
item is new this year (indicator 30 is on — 
see page 06, line 12), the single-position 
alphameric NEWITM field (consisting of an 
11-punch) is punched into col. 47 (line 
02) ; if the item existed last year, the 
five-digit numeric field LASTYR is punched 
into cols. 43-47 (line 01). If cost trend 
is up (indicator 32 is on) , a plus (12/6/8) 
is punched into col. 75 (line 09); if it is 
down (indicator 33 is on), a minus (11) is 
punched (line 10, page 09) ; if there was no 
change in merchandise cost (indicators 32 
and 33 are off) , col. 75 is left blank — see 
page 06, line 15 for setting of indicators 
32 and 33. 

Lin e 1_1 (page 09 ) provides for punching the 

new date from the Date card. Thus, new 
Inventory Master cards contain today's 
date, while retained (unmatched) old ones 
keep the old date. Each item Inventory 
Master card thus contains the date of the 
latest transaction — actual or attempted 
(i.e., unfilled order-item cards). 



Interpreting New Master Cards--TRSACTN file 
(Page 09, Lines 12-19) 

Z Note: The card document-printing special 
•feature is available only for the 2560 MFCM 
: Model A1. 

Various fields were chosen to be inter- 
preted by print head 1 or 2. Note in lines 
15 and 18 (edit words) that one zero will 
be printed even if the entire field con- 
tains zeros. Since Minimum Quantity (line 
T6) needs no h~yphen or "slashes , cannot fte 
negative, and cannot be completely zero, we 
elected to eliminate leading zeros by the 
Zero Suppress instruction rather than an 
edit word. 

Heading the Inventory Status Report — REPORT 
File (Page 10; and Page 11, Lines 01-06) 

Not e: Figure 65 should be referenced while 
reading the description of the report 
specifications. 

Lin es 01-C6 on paqe 10 provide for the gen- 
eral heading of the report. This heading 
is printed before the first card is read 

(indicator 1P is on) and during overflow- 
output time (OF on) . The form is advanced 
to the next carriage-tape channel- 1 punch 
before this heading is printed, and up- 
spaced 3 lines after printing. (For print- 
ing at overflow-output time, T in col. 15 
could be used in place of D or H; however, 

IP is only on at detail time; therefore, 
detail output time is the simplest way to 
handle the operation.) 
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The heading consists cf constants, with 
cne exception: the output field PAGE is 
specified. This is the only field name (as 
contrasted with constants) that can prcvide 
ether than blank cr zeros tefore the first 
card has teen read (i.e., when 1P is en). 
The page No. 1 will be printed in the first 
heading line cf the first page (it is not 
possible to start with any other value 
before a card has been read) ; it will be 
incremented ty 1 before printing cc the 
first line cf each succeeding page. Zero 
Suppress is specified to eliminate leading 
zeros and the units positicn zone (C zone) . 



lines 08-1 3 contain the specifications for 
the first print line of column headings, 3 
lines beneath the report heading. The form 
is single-spaced after printing. 

The eclumn headings,, toe, are to appear 
on each paqe (first and overflow pages) . 
The file name need not be repeated. 

Lines_ 14-20 contain the specifications for 
the second print-line cf eclumn headings. 
A single space fellows printing. 

Lin es 01-06 en page 11 take care of the 
third print line of column headings. After 
printing, the form is advanced to the next 
channel-2 punch. 

Printing the Item lines — REPCET File (Page 
11, Lines 07-18 and Page 12, Lines 01-10). 

Lines 07 and 08 specify that the data is to 
be printed at detail-output time (D in col. 
15) while processing either: 

(a) A formerly blank trailer card (indica- 
tor 19 on) that does net belong to a 
reccgnized error group (N90--see page 
04; and page 05, line C8) ; or 

(b) fin unmatched (NMR) eld Inventory Paster 
card (indicator 01 on) that does net 
belong tc a recognized error group 
(N90) . 

Thus, cne line will be printed per stock 
number, showing the original old Inventory 
Master card data for items without new 
transactions (NMB) , and the updated infor- 
maticn where transacticn cards exist. 

Points tc note: 

In lines 1_1, 12,, 13, 15, and 17 en page. 1.1 , 
the edit word is designed so that one C is 
printed when the guantity is ccmpletely 
zero, and a minus sign is printed for nega- 
tive values in fields that can be negative. 
In IiBes_CJ x _02j._04_and_07_cn_^a5e_J2, the 
edit word provides fcr printing cf .00 when 
the amount field is all-zero. The edit 

word in li ne 7 cf page 12 alsc provides 

for a floating dollar sign. 



Tne maximum number oi leading zeros 
(i.e., all but one) is preserved for the 

Stock No., in line 18 on pa ge 1 1 , and 

hyphens separate merchandise class from the 
remainder cf the number, and the principal 
number from the self-check digit. 



The dates — lines 09 and 91 o n p age 1 2-- 
are edited to be printed with slashes 
between Month, Day, and Year. There is no 
point in placing a in the edit word: the 
date can at most have one Leading zero 
(months 01-09), and its suppression cannot 
be prevented by an edit-word entry. 

Line 09 1 on pag e 1 2 illustrates insertion 
of a specifications line that had been for- 
gotten initially, by assigning it a line 
number seguentially between two pre-printed 
numbers. 

Lines 1 5 an d 16 on page JJ cause the Quan- 
tity Sold Last Year to be printed (in print 
positions 54-59) if indicator 30 (see page 
6, line 12) is off, but the word NEW to be 
printed instead (in print positions 57-59) 
if indicator 30 is on (i.e., new item this 
year) . 

Lines 05 and 06 on page 12 provide for 

printing a + symbol if the cost trend is 
up, a - if it is down, and leaving the 
print position blank if there has been no 
change in cost since the previous report. 
(See page 06, line 15, for setting of indi- 
cators 32 and 33.) 

Lines 09 and 091 on paqe 12 determine 

whether today's date (DATE) from the Date 
card or the date (TBNSDA) from the old 
Inventory Master card is to be printed. If 
there were transactions (i.e., the report 
data is not printed while a Master card is 
being processed — N01), DATE is selected; if 
there were no transactions (i. e, the report 
is based on data in the old Inventory Mas- 
ter card — indicator 01), TBNSDA is 
selected. 

Line _W on page 12 provides for printing an 

asterisk in print position 120 when Quanti- 
ty Available (i.e., On-Hand + On-Order) is 
less than the Minimum Stock Quantity (see 
page 06, lines 13 and 14, for setting of 
indicator 3 1) . 

Printing the Grand Totals — EEPCET File 
(Page 12, Lines 11-17) 

The line is printed at total-output time (T 
in col. 15), after the last data card has 
been processed (IE indicator en) . It must 
be at total-output time, because the job is 
thereafter terminated if the IE indicator 
is on. The form is upspaced 2 lines before 
printing, providing 3 blank lines between 
the last detail line and the grand totals. 
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Figure 70 (part I of II) . 



Fre-Eilling with Inventory Ccntrol, Assignment of Indicators 
in Figures 67-68 
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Major error: calculation for all cards 
of the stock number group, from the 
point cf error detection, is bypassed, 
and these cards are selected to 
Stacker 4 



Card following Blank trailer card 
Card following Old Master card 



Card following Date (constant) card j 



First card of control group if not fol- 
lowing Old Master or Blank 



Obsolete Old Master card 
have been reentered 



should not 



Cancelled unfilled Order-item card 
should not have been re-entered 



Old Master with negative On-hand at 
input: should not exist 



Duplicate Old Master cards, or obsolete 
Old Master card 



Cn-hand negative after Stock Purchase or 
Adjustment card 

Missinc or mispcsiticned Blank trailer 
card 



Part of 
error-detection 
routines 



Figure 70 (part II of II) . Pre-Eilling with Inventory Control, Assignment of Indicators 

in Figures 67-68 



The form is advanced to channel 1 
afterwards. 

Constants describing the fields are 
printed preceding the values. 

A fixed dollar sign is used in the edit 
word for Inventory Value. 



Printing sold-tc and ship-to name and 
address side by side, each on three 
lines, and each from a single card; 



Predetermined total line; 



,CL J-U O 



INVOICING 

Tuis repcru U1.i4.izes the cr<j.er — itei 
processed in the previous program example 
(Pre-Eilling with Inventory Control) , in 
conjunction with scld-to and ship-to name- 
and-address cards. The same mail-order 
company is assumed, with modifications to 
illustrate more features. 

The example is deliberately kept fairly 
simple, its main purpose being to provide 
an illustration of: 



4. 



Summary punchinq. 



The summary cards can be used for: 

(a) Accounts Receivable, 

(b) Sales report by customer, 

(c) Sales report by salesman; 

Card-type sequence check by Sequence 
entry (cols. 15-16, input 
specifications) ; 

Table look-up. 
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Assumptions 

1. The item cards from the preceding 

example serve as detail cards (customer 
crder-item cards — card 9, excluding 
merchandise-return cards with 11- 
overpunch in ccl. 11). They are 
assumed to have teen scrted ty Ware- 
house Lccaticn and Account Nc. after 
the Fre-Billing operation. 



2. The heading and detail cards have teen 
previously match-merged, so that there 
are no missinq masters or legitimate 
missing details. (This match-merging 
could have been done by an RFG program, 
or with the Punched-Card Utility CCLAT 
Program, cr en a collator. ) 

The card with today's date and the 
starting invoice number (less 1) is 
placed ahead of this grcup of cards. 

The deck is placed in tie primary 
hopper cf the MFCM. 



3. 



4. 



Name and address are confined to three 
lines from a single card. 

The presence cf a ship-to card is 
optional. When it is present, it pre- 
cedes the sold-to card; when there is 
nc ship-tc card, the sold-tc name and 
address are to be printed in both 
positions. 



Placing the opt 
ahead improves thr 
name and address c 
processing of the 
sold-to card were 
ing of name and ad 
commenced, when th 
card, until the fi 
being processed — o 
gram knew that no 
Address card (name 
must be awaited. 



ional ship-tc card 
cughput: printing of 
an proceed during 
sold-to card. If the 
placed first, print- 
dress could not be 
ere is no ship-to 
rst detail card is 
nly then can the pro- 
further Name-and- 
ly, a ship-to card) 



The blank cards, which are to become 
summary cards, are a separate file, in 
the secondary hopper cf the WFCM. 
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Ficure 7 1. Invoicing, Card layouts 
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5. Arbitrarily, the MFCM is used for the 
two files: ether Model 20 I/O devices 
can he used if the File Description 
Specif icatiens are changed. 

6. Stacker Selection has teen arbitrarily 
determined thus: 

Date and Invcice-No. headinq card — 

stacker 1; 
Name- and Address cards — stacker 1; 
Detail cards — stacker 2; 
Summary cards — stacker 3. 

7. A disccunt percentage is applied tc the 
invoice total based on a customer-type 
code in the sold-to card. For this, 
table look-up is employed. 

8. a. Certain identifying data is 

repeated on overflew pages, 
b. Invoice totals are tc be printed at 
a predetermined point en the page. 

Figure 71 presents the card layouts and 
Figure 72 portrays the layout of the 
report. Constant headings are not printed 
by the program, because use of a pre- 
printed invoice form is usual. 

In the explanations that follow for the 
application example, mest cf the otvicus 
points will be emitted, as the reader is by 
this time familiar with them. 



Sequence (cols. 15-16) is alphabetic, 
because the card appears only once, and 
does not fall into a sequence within each 
account-number group. 



Stacker selection need not be specified, 
because 1 is the normal stacker for the 
primary hopper of the MFCM. 



No card-type Resulting Indicator is 
needed: the card is never referenced, and 
all calculations are conditioned by indica- 



Ship-To Card — Page 02, Lines 04-08 

The card, if present, is to precede all 
others cf the group; therefore, it is 
Sequence number 01 (cols. 15-16). If pre- 
sent, only one is permitted; therefore, 1 
is specified in col. 17. Its presence is 
optional; therefore, an in col. 18. 

Control Level 1 is assigned to customer 
account number — both (1) tc perform end-of- 
invoice routines, and (2) to guard against 
cards out of sequence, or missinq Sold-To 
card (see calculation specifications) . 

Stacker 1 is the normal stacker, and 
need not be desiqnated. 



File Descr iptio n Specifications (Ficjure 73J_ Sold-To Card — Page 02, Lines 09-16 



The input file, named INECBRDS, is assc- 
ciated'with the primary hepper of the MFCM. 
It consists cf one card containing the 
day's date and the starting invoice number 
(less 1) and, for each customer account 
number represented, contains — in this 
order: 

One Ship-to Name-and-Address card 

(optional) ; 
One Scld-to Name-and-Address card; 
At least cne Order-Item detail card. 

A file of blank cards (named SUMCARES) , 
which will become the Invoice Summary 
cards, is to be placed in the secondary 
hopper of the MFCM. 

The printer has been assigned the file 
named INVOICE. 

Inpu t Sp ec ific ations (Figure l 1 * — Parts I 

and II) 

There is only one input file, named 
INPCARDS, constituted of four card types. 

Date/Invoice-No. Card — Paqe 02, Lines 
01-03 



Exactly one card (1 in ccl. 17) cf this 
type must be present (no in col. 18), and 
it follows the Ship-To card (if this is 
present); therefore, cols. 15-16 contain a 
number higher than for the Ship-To card, 
but lower than for the detail cards (page 
03, line 01) . 

Different field names are used for name 
and address in this card: the name-and- 
address data from the Ship-To card (if any) 
is to be printed alongside that from the 
Sold-To card, and must therefore be pre- 
served at least until completion cf output 
from the Scld-Tc card. 

The same field name is used for ACNTNO 
in all cards, because the data should be 
the same from all cards within the aroup 
and therefore need not be saved from card 
to card: if it is net the same, a control 
break will occur (L 1 is assiqned to Account 
No.) . 

Indicator 20 is utilized to recoqnize 
the first detail card of each invoice — see 
paqe 06, lines 12 and 13. 

Stacker 1 need not be specified. 



Proqram Examples 245 



IBM 



A iinas P«r Inch 



MTHNAnONAL WNNUS MACrUNB COfFOftATION 

PMNTBt SPACING CHART 

IBM 407, 408, 409, 1403, 1404, 1443, ond 2203 




wwoMniaBcaHaKMeeMsmarncKDSscsacercreK'DccnrR^-cifM 



Figure 72. Invoicing, Invoice Layout 



IBM 

».,. IQ- 15-66 



INTERNATIONAL IUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FILE DESCRIPTION SPECIFICATIONS 

IBM System/ 360 



k^u. 



Punching 
Imtruclion 


Grophk 
















Punch 

















ED 



Forn XJ4-M47 3 
Printed In U.S. A. 



75 76 77 7« 79 BO 



Identification 







i 

E 

i 




















f;i 


Type 






















Mode of Processing 


I 

I 
% 

3 

39 




























Z 

2 
3 

53 










































line 
3 4 5 


Filename 
7 8 9 10 11 17 13 14 




28 


Length of Key Field or 


Device 

40 41 42 43 44 45 44 


Symbolic 
Device 

47 48 49 50 51 53 


Name of 
Label Exit 

54 55 56 57 58 59 


Extent Exit 
for DAM 

60 61 63 63 64 65 




u 

ID 
O 

15 














of Record Address Field 


< 
66 


No. Tracks for 


u 

16 




End of File 


29 30 




Record Address Type 




Cylinder Overflows 


17 




Sequence 


31 


Type of File 


67 


No. of 


a 
\ 

< 

18 














File Format 


o 

33 


Overflow Indicator 


M 69 


Top. 


> 

19 


Block 
Length 

20 31 32 23 


Record 
Length 

34 35 36 37 






33 34 


Key Field 

Storting 

Location 

35 36 37 38 




Rewind 


3 
\ 
Z 
70 


71 73 73 74 


1 




F 


Jl 


fJ 


P 


t 


A 


R 


D 


S 


I 


















































HJE 


Q 


M 


i 
























| 




































1 




F 


£ 


U 


M 


C 


A 


R 


Ik 


$ 





















































Mf_ 


c 


M 


2 
























! 




































i 3 




F 


I 


N 


V 





1 


C 


E 























































e 


R 


1 


N 


T 


E 


R 




















i 

I 




































oLi 


F 




































































































i 

i 








































- 









































































































































• Figure 75. Invoicing, File Description Specifications 



246 System/360 Model 20 CPS Report Program Generator 



IBM 



o... /J g-/tf -fr6 

Program INVOICING 



INTERNATIONAL BUSINESS MACXIKES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



JL& 



Punching 
Instruction 


Graphic 


— 














Punch 


11 















x-m 



|TMV10|J|C | 



In 


| 

E 


Filename 


z 

i 

1 


z 

£ 
Z 


o 
o 


3 
1 

0» 


Record Identification Codes 


3 


J 
| 


Field 


i 


Field Name 

53 54 55 56 57 58 


i 

59 60 


s-s 

r 3 

1 U 

61 62 


■TJ 
| 

63 64 




Field 




Sterling 

Sign 
Position 

71 72 73 74 


i 


2 


3 


Location 




Position 


z 

z 


a 


1 


Position 


z 

z 


a 


J 


Position" 


z ^ 

Z I 


3 3 


From 


To 

48 49 50 51 


Pk» 
65 66 


MilHIl 


Zero 
Wank 

69 70 


, 




iNPcAfHiS 


WD 








' ' ll 




c 


- 


! ! 1 








1 ! ! 










| : 1 












i 


1 








I 






















! 


















7 2 


75 


I 


INVCNO 
















°i J i 








































76 


8* 


I 


DATE 
















4. 






n 


J 





01 


1 




c 


1 










































a 5 








































2 


20 




VflM£P 
















a * 








































21 


4# 




flDDRSP 
















7 








































41 


6 6 




CTYS'TP 
















8 








































76 


89 


0ACNTNO 


Ll 














9 






0* 


I 




P*2 


1 




c 


2 










































1 








































2 


20 




NAMED 
















1 1 








































21 


U0 




flDDRSO 
















1 2 








































41 


6 6 




CTYSTD 
















1 3 








































76 


800QCNTNO 


Ll 














1 4 








































6 7 


72 




HOWSHP 
















1 5 








































73 


73 




D5.CTCO 












2f 




16 








































74 


75 




SALSMN 






























































































































■ 















Figure 74 (Part I cf II) . Invoicing, Input Specifications 



IBM 



Date . 



in- IC -LL 

Program Tul/OfglNfi 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Programmer 



K.B. 



Punching 
Instruction 


Graphic 
















Punch 

















mm\ 







t 

6 












IS 16 


Z 

I 

E 
Z 
17 


5 

18 


o 

8 
1 

19 20 


Record Identification Codes 


i 
| 

42 


| 


Field 


1 

* 

52 


Field Name 

53 54 55 56 57 58 


i 

! 

59 60 


|| 

c * 

lu 

61 62 


i 
| 

1 

3 
63 64 




Field 




Starling 

Sign 
Position 

71 72 73 74 


tin* 
3 4 5 


Filename 

7 1 9 10 11 12 13 14 


i 


2 


3 


Location 




Position 

21 22 23 24 


z 

a 

Z 

25 


O 
26 


s 


Position 

28 29 30 31 


ft 

2? V 

32 3 


; I 

J u 
3 34 


Position 

35 36 37 38 


z 

z 

39 


40 


! 
j 

41 


From 

44 45 46 47 


To 

48 49 50 31 


Phii 

65 66 


67 68 


Blank 
69 70 





ll 










1 


1 1 


^ 


N 




43 


Mil 




D 


9 


i ! i 








| j 








2 




M 1 


1 i i 




; | ■ 




' 


j 










o* J.| 






: ii 


















: ! 






1 : 












ill 


;I 





BOCflRD 










21 






°l 3 j 




i ! 1 : ' 

i ■ ' : ■ ; 


























1 : 












!! 2 


7 


9 


STKNO 










22 






oi *' 




1 


: i ' i 

, , ! 1 ! 


















, , 




















8 


■U 


9 


GTY 
















°i 5 




,■ ! , , ; 


















, 


















,1.2 


16 


2 


UNTPRI 












i\ 




o: * 






















' ■ 


















17 


22 


2 


GR.SRNT 
















o| T 




! . ' ■ ' 


1 








. 


























23 


24 




UNMERS 
















1 




, ■ ! 


1 


































2 5 


39 




DESCft 
















9 








































k* 


Ir2 





k/HSL 0C 
















1 






1 


































71 


75 




0RDRN0 
















1 1 








































76 


80 





ACNTN0 


Li 














1 2 




, . : 




































i 






















■ 


*- 









































































Figure 74 (Part II of II) . Invoicing, Input Specifications 



Eroqram Examples 247 



IBM 



INTEtNATIONAl MlSINESS MACHINES COtFOtATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 



IMVOICIH6 



K.B. 



inttrvction 


Graphi, 


= 














rum* 


fc 















IdvnKficoriofi 



HMviolilci 



Una 
3 4 5 


i 

4 


I"' 

i 

3 
u 

7 I 


Indicators 


Factor 1 

11 IV 20 SI 22 23 24 25 34 27 


Operation 

24 29 30 31 33 


Factor 2 

33 J4 33 34 37 34 3V 40 41 42 


Result FI«kJ 

43 44 43 44 47 4| 


Unalh 

49 50 31 


1 . 

a a 

52 5 


Resulting 
Indicators 


Comments 

60 61 42 43 44 63 44 47 64 49 70 71 72 73 74 


A 


d K 


d 


\ H. 


Min U . 


Zero 
Blank 


Compare 


1>» 


K» 


Equal 
1=2 


I 1 > 
'i ,0 i" 


I' 1 

11|13||4 


ll|l«17 


3 34 S3 


34 37 


5« 39 


0,1 


c 




LI 


#2 




' ' : 


MOVE 


NRME.D ,_I_1 


NRMEP 












SHIP-TO-SOLD-TO 


1 


c 




Li 


#2 




: ; 


hoVeP 


RDDRSD | 


R DDR SP 












SHIP-TO-S0LD-T0 


01 


c 




LI 


: #2 






MOVE 


ctystd| i , i 


ctystp 












SHIP-TO- SOLD— TO 


4 


c 




JT3 


■: ; 




JNVGRS 


RDD 


GRSrXMT i 


INVGRS 


1 


2 








INV'C GRS TOTAL 


03 


c 




uT2 


' ! 


! 


DSCTCO i , 1 


LOKUP 


TABCOD ! 


TRBPRC 










23 


FIND DISCT PRCT 


« 


c 




*2 


^2 '3 




; ; 1 ! 


S£,rON 


! , ■ ■ ! ! 1 , ' 








.Hi 






MO D-CODE MATCH 


07 


c 


LI 


23 






INVGRS 1 


MULT 


TRBPRjC 


rXMTDSC 


<S 


2, 


*-H 






CRLC DISCT AMT 


I i 


c 


L'l 


23 




i , 


j^vjgrs; J 


sub' 


amtdsc; ; 


rMVNET 


7 


2 








CALC INVC NET 


• 


c 


Ll 


2 3 


! : 




TOTGRS 


ADD 


INVGRS 


TOTGRS 


8 


2 








CRLC TOTL GRS 


1 


c 


H 


23 


: ! 




T0TDSC 


RDD 


AMTD5C 


TOTDSC 


7 


2 








CALC TOTL DISCT 


1 1 


c 


LJ 


23 






TOT NET 


RDD 


INVNET 


TOTNET 


8 


2 








CALC TOTL NET 


»:* 


c 


LI 


U01 


U02 




■ , , , ! 


SETOW 


; ' ! ■ , '■ i 


■ . ■ i 






yj 






NO NAME /ADD CAR 


1] 


c 










■ - i i : ' 




! 1 1 ' ' ■ , 


i ■ : i 














u 


c 








1 








1 














1 1 


c 


i 


1 i 






: | 




















l P*31 


c 




Li 


1 ; 


i ; 


INVCN0 


HOD 


1 . 1 , , i , 


INViqw 












INCRMT INVCNO 




c 






I 




''!'''. 


: i 




















c 








i 






' ; ; '' • ! : : 


! : 
















c 


i 


; | 


| ! 


i 


j ! , , l : ! 


! ; , ' 


: '< ' ' i ' ! ' 
















_i_L 


c 


•■ 






it 


! Ml 
1 ■ ■ ! ' 


! i . ' 


! j : i j 1 1 | 

















Card EltKfro Numbtr . 



Figure 75. Invoicing, Calculation Specifications 



IBM 



INTEtNATIONAl tUSINESS MACHINES CCWFOKATION 

REPORT PROGRAM GENERATOR HLE EXTENSION SPECIFICATIONS 

IBM System/360 



IMt/0H?lAJ6 



£.&_ 



Punching 
kirtrucrion 


Graphic 
















Punch 

















ld«HiKfication 



75 76 77 71 79 80 

\l\Mo\M 



Um 
3 4 3 


1 
1 


Iran 


SaaiMOC. Of Hi* Chaining FiU 


To Filename 

1» » 21 22 23 24 23 26 


Table 
Name 

27 21 29 30 31 33 


Nunbar ol Tool. Enfcin Par lacani 


Table 
Name 

(Akamatino 
TobW 

46 47 44 49 30 51 










Comments 

34 59 40 61 62 63 64 43 44 47 64 69 70 71 72 73 74 


7 i 


N— W of H» Ch.W»| HoM 


33 34 35 


No-bar of Tab*, tutrix 




» 10 


From Filename 

11 12 13 14 15 14 17 14 


Par TaU. 
34 37 34 39 


lone* of TaU. 


Lnngrn of Tool. 


Entry 

40 41 43 


3 

43 


1 

I 


o 

43 


Entry 
52 33 34 


1 

55 


1 


a 

\ 
1 

57 


1 












r kit op 


S4 


14 


1 








TABPtd 


A 




4 






2 






































s 






































4 






































I 








1 






























4 






































. . 







































Fiaure 76. Invoicing, File Extension Specifications 



248 System/360 Model 20 CFS Report Program Generator 



Drflor-T4- qij Ilo+ai 1 Parflc Dane (\"i 



Our assumptions called for selecting these 
cards to stacker 2: therefore, a 2 is 
entered in col. 42 of line 01. 

The field BOCARD in line 02 is specified 
only to provide an indicator (21) for 
recognition of back-order cards 
(1 1-overpunch in col. 1, making the field 
negative) . 

If the item card was to be cancelled, 
because of unavailability, an 1 1-overpunch 
was punched in col. 7 in the previous 
application example. This makes the Stock 
No. (line 03) negative. Indicator 22 is 
utilized subseguently to control operations 
for cancelled items. 

Unit Price, among other fields, was left 
blank in the previous operation whenever 
the item could not be filled. Indicator 24 
is subseguently utilized to control opera- 
tions for unfilled items. 



Ca lculation S pecificat ions (Figure 75-- 
£ase_041 

Line s 01-03 cause the Sold-To name-and- 
address data to be moved to the correspond- 
ing Ship-To fields whenever there was no 
Ship-To card (i.e., the first card of the 
control group is a Sold-To card) . At out- 
put time, this will cause the same informa- 
tion to be printed in the Sold-To and Ship- 
To areas on the invoice. 



m.n 7-,-r-^-tT-; a 



.p^.^ ±u. 



Lin e 031 causes the Invoice No. 



Ail-r-1 



to be 

i.CmCU UCU u UJ. .1. 11 <^j £* J_ \J \^ O ^ O -L 11 VJ \J J LUC J-J-.1.0I 

card of each Account-No. control group. 
(It was loaded with a value one less than 
the desired starting number.) 

Line 04 specifies cumulation of the gross 
amount from each item card for an invoice 
total. If the item was not filled, the 
GESAMT field is blank. 




causes a search th 
le TABCOD for a co 
the Discount Code 

Sold-To Name-and- 
atch is found, ind 
the discount perce 
nt position of the 
s stored and becom 
ion factor and as 



rough the argu- 
de that exactly 
in the permanent 
Address card, 
icator 23 turns 
ntage in the 

function table 
es available as e 
output-field 



The tables are defined in File Extension 
Specifications — see page 05. 

In line 06 , indicator HI is turned on — to 
stop the system after this card — if no 
Discount-Code match was achieved. 



culations during total time following the 
last detail card of each invoice: 

1. The invoice gross total is multiplied 
by the table-supplied percent of 
discount to establish the discount 
amount (line 07) — note that 
half-adjustment is used, and 4 decimal 
positions are dropped (there are 2 
decimals in INVGRS and 4 in TABPRC, 
since percentages less than 100 
expressed as ratios fall to the right 
of the decimal point) . 

2. The discount amount is subtracted from 
the gross invoice amount to produce the 
net invoice amount (line 08) . 

3. The three invoice amount totals (gross, 
discount, net) are accumulated in three 
other fields, to provide grand totals 
(lines 09-11) . 

The operations in lines 7^1 1 are 
executed only when the Discount Code 
matched an entry in the argument table 
(indicator 23 on) . 

The specifications in line 12 set on 
indicator H2 — and halt the system after 
this card — if the first card of a control 
group is not a Name-and-Address card (i.e., 
neither a Ship-To nor a Sold-To card) . 

Note: Since the test is made at total time 
(L1 in cols. 7-8), the first group will 
not be checked: total time is bypassed on 
the first card with Control Level specifi- 
cations. (The test could have been pro- 
grammed for detail time instead; but our 
approaCu Oners the opportunity to reiinu 
the reader of the initial total-time 
bypass. ) 

File Extension Specifications ( Figure 
76 — Page 05) 

Two tables are used in this application — 
one as an argument table (TABCOD) and the 
other as a function table (TABPRC) . For 
convenience, the two tables are punched 
alternately in the same card, but this has 
nothing to do with the manner in which they 
are employed (argument or function) . The 
table cards (in this instance, a single 
card) must be loaded at program-generation 
time. 



T 
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the 
(thu 
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term 
deci 
f urt 



here 
card 
e en 
same 
s, 1 
gits 
;ip e 

mal 
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are only 14 codes, and all fit in 
; therefore, both the number of 
tries per card and per table are 
The code is a single character 
in col. 42) , and the percentage is 
long (format xx.xx %) . Since the 
rcent" means "per hundred", the 
point must be moved two positions 
to the left when multiplying by a 
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percentage: thus, the field contains U 
decimal positions (not 2) . 

Outp ut-Format Specifications (Fig ure 77 - 

Parts_I z IIIJ_ 

(Refer also to Figures 7 1 and 72) 

Note that all detail output is specified 
ahead of all total output. 

Detail Printing on the Invoice — INVOICE 
File (Page 06; and Page 07, Lines 01-11). 

This output is performed at detail time 
(D or H in col. 15) . INVOICE was asso- 
ciated with the printer (see page 01, line 
03) . 

Lines 01-04 on page 06 control the printing 
of the name on the first print line of the 
page. The Sold-To name (NAMED = Name solD) 
— read from card 2 (assigned card-type 
Resulting Indicator 02) --is printed in 
positions 11-29; the Ship-to name (NAMEP = 
Name shiP) — read from card 01 (indicator 



01) --is printed in positions 58-76. Both 
are printed in the same line on the invoice 
form . 

The printing at the beginning of each 
Account-No. group takes place as the Sold- 
To card is being processed (indicator 02 
on) ; at that time, both the ship-to and 
sold-to information is available, and can 
be printed concurrently (if L1 — instead of 
02 — were specified, only data from the 
first card of the group would be 
available) . 

The names are also repeated at the top 
of overflow pages, at overflow-output time 
(indicator OF). NL 1 is specified, so that 
the old names are not printed at overflow 
time at the top of one new page — followed 
by the new names on the next page from card 
type 02 — when the overflow point and the 
end of a group coincide. 

In the calculation specifications (page 
04, line 01), the Sold-To name was moved 
into the Ship-To name field if there was no 



IBM 



>^_ TUVQ16IV4 



MTttNATIONM HIUNE» MACHINIS COtPOtATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM Sy»t#>m/360 



K.t. 



>WI*I»| 


Graphic 


T" 














hack 


s 















-80 



n n n n n w 
EFEEEF1 













«■»• 


, m. 


Output 

HICnOtttofB 






E 


li 
• i* 


hOrtprt 

Oil 111 


I 

I 

44 




















Un. 
14 5 


i 


Fiknamo o 

X 

| 

7 t » 10 11 II O 11 U 


in 

It t7 1 


r i 


I 


And And 


FMd 

" \ 

113)14 IS M37 3 


Constant or Edit Word 

ll«IT«ltlOII»llMllll»ll)IWIItlUHtlUffttltlt 


Sign 
PtMlHen 

Tl 71 7J 74 


l i 

■ If 10 


ii n 


1 


I 

MII7 31 


i 

1»J0 11 


1 


o 


7W 


V0 


iee p| 


i 


f^i 




Of 


tf 


^ 




j ; 








I 


; 








o 






Oi 








?' 




















■! 








o 


'. i , 
















mm 


^ 




29 






i i 






o 


• ! i 














HA M£ 


r 




TA 




I \ 


1 . 1 ■ ■ :• ■ 






o 


: ! v 


i 


t 




$1 
















! 


1 : ! 






o 


\ 










! 




h\VPfi 


*p 




' ^ 










! 




o 


\ \ 
















h?PK\ 


SP 




*7 














o 




' \ ' : P 


\ 


\ 




-At 


















i 


1 ! 


; i ! 




o 


















t\r*4 


TP 




* 6 




1 


J | ■ ' 




1 


o 


1 














' ! 


! 


t\TY*Wp 




e\s 




i ■' 


] ! ■ . ■ ; 






1 i | 


o 


; 




P 




t? 


n 


iff 


V 


t.1 




! ■ n ! 




. 






I 

i 


': i ■ ! ■ : : ' ' ! : ; ' 






1 * 


o 


1 1 ■ 1 : i °* 








fa 


N 


24 




i i ! ' 




■ j 












• ! 


I , 


o 


















pseWo 


8 


f 




j ■ i ' ' ■ ■ ' ' i ■ '■ ' ' ' 


1 . ■ . 




i i 


■ 4! 


o 


i \ ■ 


















4i 


£AfTVO: 


I 


if 






! ' 1 ■ ' i i ; : 


i . ' : 




: 


1 s 


o 


i ■• ■ 


















2\ 


tfitfO 




tt 




!,,' 


! i 


: : ' : ! 






; 


/It! 


o 




i ; ' 








H\Of 








$ 


ALMJJ 




■tt 




! ! ! ! i ' 


i ■ ! ! 


! . ! ; : ; ! 


! ' ' ■ 




i 


m 


o 


! 


, 
















Pfifd ■ 




44 




i . . . 










j | 


m 


o 


1 ! 


1 




1 










i i 


I'yw&Wo} 


r 


4 ? 








! 


1 : i ; i i : 


' ! 1 : 




i ! 


lf\ 


o 


1 i 






i 


1 


UPP 




1 




t'pntoWp 




: 4 








•' ' I 


1 


'ili 




1:!: 




j 1 


II 


o 




i ; ■: 








. j 






1 i 


filli 




, ! i 








i 


i 


III! 1 ! 


Mil! 




i i 



Cmi4 item Numb* 



Figure 77 (Part I of III) . Invoicing, Output-Format Specifications 



250 System/360 Model 20 CPS Report Program Generator 



Ship-To card; therefore, both names are the 
same in that case. 
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(calculation specifications) wou 
omitted. However, a B must then 
in ccl. 39 (Elank After) of line 
and 10 of page 06; otherwise, wh 
there is no Ship-To card in a gr 
data freir the last Tecedinci *■- h "* 



e invoice 
s no Ship- 
he Scld-To 

page 04 
Id be 

be placed 
s 04, 07, 
enever 
cup, the 



remains in storage, and will be printed. 



Lines 05-07 and C8-10 provide th 
lent functions for the second an 
lines of the addresses. However 
street addresses and city/state 
repeated en overflew pages. 



e eguiva- 
d third 
, the 
are not 



No entry is reguired in cols. 17-22 of 
line 08, because spacing tc the 
miscellaneous-data print line is specified 
in line 11. The in col. 18 is entered 



only tor compatibility with other RPGs (any 
entry 0-3 would satisfy that reguirement) . 

Lines 1 1- 12 (and, as explained below, line 
13) control the conditions under which the 
miscellaneous data is printed above the 
first detail line en the invoice. 

The form is skipped to the next channel- 
2 punch before the miscellaneous-data line 
is printed, and to the next channel-3 punch 
(first detail line) thereafter. 



Note: Instead of utilizinq Skip/Before in 
specification line 1 1 to reach the 
miscellaneous-data print line (the simplest 
way to program this), Skip/After — which is 
usually more efficient in terms of 
throughput — can be used in the name-and- 
address specifications lines. It reguires 
several entries, however, because all three 
name-and-address lines are printed at the 
start of a new customer group, but only the 
name line is printed on overflow pages: 
The entries in cols. 17-22 (forms control) 
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of specifications lines C1, 02, 08, and 11) 
should then read : 

Line 01— E* 01 02 

Line 2—63 C1 1515 

tine 08— ft tf 02 

Line 11— ff tt 03 



The miscellaneous-data line is printed 
after the name and address for a new group, 
and ahead of the first detail line. It is 
also printed in the same position on over- 
flow pages (when overflow dees net coincide 
with the end of a group) ; tut seme of the 
fields are net printed (NOP) on overflew 
pages. 

Because Customer Crder No. (ORDRNO) is 
not available until the first detail item 
card has been read, the miscellaneous-data 
line must be printed after the first detail 
item card has been read, yet above the 
regular detail data. Therefore, it is 
printed during processing of a detail card 
(indicator 03 in specifications line 12) , 
yet before the print line for the regular 



detail data (see page 07, lines 01-11). 
But it is to be printed only before the 
first detail line (apart from overflow 
identification specified in line 11); 
therefore, the first detail card of a group 
must be identified. We chose to accomplish 
this as fellows: 

The data for the field DSCTCO is supp- 
lied by the Sold-To card, where it is 
never blank. When the first detail card 
is processed, the DSCTCO field, there- 
fore, contains data. (One of the possi- 
ble Disccunt Codes in this example is 
— see Discount Table in Figure 71 — but 
is treated as non-blank in an alpha- 
meric field. DSCTCO was defined as 
alphameric — see paqe 02, line 15.) 
Indicator 20 is on only when DSCTCO is 
blank (see paqe 02, line 15) ; it is 
therefore off when the first detail card 
is processed. 

Specifying N20 with 03 in line 12 
permits the output to be performed for 
the first detail card, because indicator 
20 is off. As the data from the DSCTCO 



IBM 



ZNV0ICIM6 



INTEINATIONAl IUSINESS MACHINES CCttfORATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM System 360 






Programmer 



K.8. 



Punching 
Instruction 


Graphic 


$ 


/ 














# 


*// 













75 76 77 71 79 to 



lin* 
3 4 J 


E 
6 


Filename 

7 a 9 10 11 12 13 14 


O 
I 

| 

15 


3 

t 
| 

16 


_ 


Skip 


Output 
Indicators 


Field 
Nam* 

32 33 34 35 36 37 


\ 

\ 

3> 


X 

< 

1 

m 

39 


End 
Portion 
In Output 
lowd 

40 41 42 43 


i 


Constant or Edit Word 

45 46 47 41 49 50 51 52 53 54 55 56 57 51 59 60 61 62 63 64 65 66 67 6« 69 70 


Starling 

Sign 
Position 

71 72 73 74 


| 

17 


2L 


J... 

19 JO 


£ 
..„■*„ 

21 22 


And And 


rl 

23 24 25 


t 

26 27 28 


h— 

29 10 31 




o 






















ktHIHO 


I 




if 5 










o 






















SMSMH 






lit 










o 






















Iti V6*S 






lit 




t. ' 






o 






















IHyMET 






zzi 




' #. ' 






o 






















PAT£ 






1ZJ 




' / / ' 






o 


invoice 


T 






2 


*4 




LI 






















o 






















1MV6KS 







71 




'i . , 0. ' 






o 




r 






Z 






Lt 


23 




















o 






















TAtf*C 






59 




' 0. ' 






o 






















AMTPSC 






7J 




' s *• ' 






o 




r 






f 






It 


23 




















o 






















iHVHtr 






11 




4 ' 






o 




r 








fl 




Lt 






















o 






















fpr&Rf 






ts 




' t ' 






o 






















TOTPSe 






45 




1 J A 1 
1 ~' 




16 


o 






















TOTHB1 






*f 




' , *■ ' 






o 






































o 






































o 






































o 





































Fioure 77 (Part III of III). Invoicing, Output-Format Specifications 



252 System/360 Model 20 CPS Report Program Generator 



field is transferred to the output- 
storage area, the Blank-After (B in col. 
39) instruction causes the field tc be 
cleared, and indicator 20 to turn on. 
The output controlled by the specifica- 
tions in line 12 will thus never be per- 
formed again until another Scld-Tc card 
has preceded a detail card--because 
indicator 20 remains en until data is 
read into the DSCTCO field again. (The 
entries in line 1 1 provide for the cut- 
put at overflow time.) The field DSCTCO 
was chosen because its data is not 
needed again in the remainder of the 
operations for a group. 



Note; An alternate approach would be: 

Change all 11 specifications tc L2. 

Then, specify Control Level L1 for'ORDENO 
(page 03, line 10) . 

In place of N20 on page 06, line 12, speci- 
fy 11. 

The B in line 13, page 06 is then not 

needed; nor is indicator 20 in line 15, 
page 02 then reguired. 

This technique might be employed if the 
contents of all pertinent fields had to 
be preserved for summary punching. 



Spe cification s lines 13-19 specify the data 

to be printed in the miscellaneous-data 
print line. 

Although the field DSCTCO is not sup- 
pressed for overflow lines (no NOF entry) , 
nothing will be printed from it, because it 
is blank at that time (see above) . 

T.in es 01-1 1, page C7 contain the specifica- 
tions for printing of the item detail 
lines. 

The ampersand symbols in the edit word 
for WHSLCC provide blank spaces on the 
invoice between the three digits. 

If the order item was net filled (i.e., 
it was back-ordered or cancelled), the Unit 
Price (UNTPEI) field was left blank (in the 
previous operation) , and indicator 24 is on 
(see page 03, line 05) . Output of Unit 
Price (UNTPEI) and Gross Amount (GRSAMT) is 
suppressed (N24) when these fields do not 
apply (i.e., they are blank, with UNTPEI 
used as the criterion to set indicator 24) . 
Although the fields are blank at input, 
blank numeric fields are converted to 
zeros, and .00 would be printed if the out- 
put is net suppressed. 

The Q1Y in line 06 pertains to Quantity 
Ordered; in line 07, it represents Quantity 
Shipped (see Figure 72) , althouqh the data 
is taken frcm the same field. The quantity 
in line 07 is therefore allowed to print 
only if the order item was filled 
(N24 — UNTPEI field not blank)--it was part 
of the assumptions in the preceding 



application example that no partial fills 
would be made: either stock was sufficient 
to satisfy the quantity ordered, or the 
order item was not filled at all (it was 
then back-ordered or cancelled) . 

B.O. is printed in the Quantity-Shipped 
area on the invoice (see specifications 
line 08) if the order item was back-ordered 
and not cancelled: indicator 21 is on if 
the card is identified in col. 1 as a back- 
order card (see page 03, line 02) ; indica- 
tor 22 is on if the order item was can- 
celled (see page 03, line 03) . Ail three 
indicators (24 21 N22) are needed to estab- 
lish an active back order, because the item 
might have been previously back-ordered, 
and filled or cancelled in the most recent 
pre-billing pass (see preceding application 
example) . 

CANC is printed in the Quantity-Shipped 
area en the invoice (see specifications 
line 09) if the item was cancelled (indica- 
tor 22 — see page 03, line 03) . 

Summary Punching — SUMCARDS File (Page 07, 
Lines 12-20 and Page 08, Lines 01-05) 

This output is performed at total time (T 
in col. 15), at the end of an Account-No. 
control group (L 1 in Output Indicators, 
line 12) , when all totals accumulated from 
the cards of the group are available. 

The file name SUKCAEDS was associated 
with an output file in the secondary hopper 
of the MFCM (see page C1, line 02) . The 
cards are directed to stacker 3. 

Lines 1 3-2 on page 07 contain punch — 

rather than interpret—instructions, 
because col. 41 is blank or 0. 

Lines 01-05 on page 08 contain interpreting 
instructions for selected fields--they are 
interpreting, rather than punching, speci- 
fications because col. 41 contains a print- 
head number (i.e., is not blank or 0) . 

* Note 1: The interpreting feature is avail- 
able only on the MFCM Model A1. 

Not e_ 2 : Punching of the summary card was 
specified between detail and total printing 
to optimize throughput — generally, alter- 
nating forms printing and card punching 
tends to increase throughput. 

Total Printing on the Invoice--INVOICF File 
(Page 08, Lines 06-16) 

The form is first advanced to a predeter- 
mined total line (04 in eels. 19-20, speci- 
fications line 06) . Three lines of totals 
are then printed at total time (T in col. 
15) when the L1 indicator is on (i.e., 
after each Account-No. group) . The form 
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is double-spaced between the total lines. 
In specif icaticns line 11, no entry is 
needed in col. 18, because forms advance 
before the grand-total line is specified in 
line l3--a zero is entered only for compa- 
tibility with other RPGs (for that purpose, 
any digit 0-3 is satisfactory) . 

Output for the second and third total 
lines (see specifications lines 08 and 11) 
is also subject to indicator 23 being en. 
This suppresses the discount and net amount 
lines when no match on Discount Code was 
achieved between the code in the Scld-To 
card and those in the argument table. 
While calculation of these amounts was sup- 
pressed in such case — see page 04, lines 07 
and 08. — .00 (not blank) would be printed 
for the two amount fields (because of the 
format of the edit words) if output were 
not suppressed, and a percentage figure 
from an earlier tOKUP operation would be 
printed from TABPRC. 

Whenever the total in specification line 
07 is transferred to the output-storage 
area, the field is cleared to zero (B in 



col. 39) to be ready for accumulation of 
the total for the next group. Note that 
the Blank-After instruction could not be 
entered en page 07 (SUMCARDS) ; otherwise, 

the field would be zero before output for 
printing. 



In l ine 09 , note the location of the 
decimal point in the edit word: in the 
file-extension specifications, TABPRC is 
defined as consisting of 4 decimal places, 
so that decimal alignment is correct when 
calcu l atin g the percentage amount. When 
printing the figure, however, it is to 
appear as a percentage again — the printing 
of a decimal point (like any other con- 
stant) has no connection with the location 
of the decimal point for arithmetic opera- 
tions, as specified in the field 
definition. 

Lin es 13- 16 control the printing of the 
grand totals at the end of the report (LR 
indicator en) . The form is advanced to a 
new invoice page, and all three final 
totals are printed on the first line. 
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APPENDIX A. STORAGE RE QUIR EMENTS AND TIMING 



STORAGE REQUIREMENTS 

The storage requirements, fcr both program 
generation and processing of the object 
program, depend upon the number and types 
cf specifications used by the programmer in 
the source program. Approximations for the 
Model 20 card EPG program fellow. 



Progr am Generation 

The RPG qenerator and the protected storage 
area require an approximate average cf 1900 
bytes. In addition, the requirements for 
each card punched from the specifications 
forms are: 



Eield description 



8 bytes 



1. File description card: 

2. Eile extension card: 

3. Input specifications card: 
Record identification 

+ 3 bytes for each card 
code 

Field description 

+ 4 bytes if the specifi- 
cation FIELD-RECORD 
RELATION and/cr 
FIELD INDICATORS is 
used 

+ 2 bytes if Sterling 
Field has an entry 



14 bytes 
18 bytes 

7 hytes 



Calculation 
card : 

+ 8 bytes 
of' th 
FACTO 
FIELD 
or +12 bytes 
these 

+ 3 bytes 
entry 
TORS 
9-17) 
corre 
in th 

+ 3 bytes 
dicat 

+10 bytes 
overa 
cr ap 
six c 
the e 



specifications 



5 bytes 



1, 



if one cr two 
e fields FACTOR 
R 2, and RESULT 

contain an entry 

if all three cf 

fields are used 

each time the 

in the INEICA- 
field (cols. 

differs from the 
sponding entry 
e precedinq line 

if resultinq in- 
crs are used 

for each literal whose 
11 lenqth (including sign 
cstrophes) is longer than 
haracters (See Note 1 at 
nd cf Appendix A) 



Output specifications card: 
File identification 

+ 3 hytes if output indi- 
cators are used 



7 tytes 



+ 4 



+ 4 



+ 2 



bytes if 
f ication 
INDICATOR 
BLANK AFT 
bytes for 
a constan 
byte for 
of a cons 
word fiel 
the enclo 
phes (See 
the end c 
bytes if 
has an en 



the speci- 
CDTPUT 
S and/or 
ER is used 

each use of 
t or edit word 
each position 
tant or edit- 
d, excludinq 
sinq apostro- 

Note 1 at 
f Appendix A) 
Sterlinq Field 
try 



Defined fields: 

(See Note 1 at the end 

of Appendix A) 

For each field name defined 

in the input or calculation 

specifications 

For each literal defined in the 

calculation specifications 

that does not exceed 

six characters 



8 bytes 



8 bytes 



7 bytes Proces sing cf Objec t Program 

Nearly all available core storage can be 
used by the object program. The storage 
requirements for the object program are 
based upon four factors: 

1. Easic routines 



2. Input/output routines 

3. Number of fields, literals, and indica- 
tors used 

4. Processing routines 

Basic Routines 

The basic routines contain the general 
logic of the object program. Their 
approximate storage reguirements are as 
follows : 

Easic requirement, includinq 
the protected storaae area 1090 bytes 
+ 40 bytes for usinq 
Matchinq Fields 
specifications 
+120 bytes fcr multiple 
input files. 

Thus, the maximum requirement for basic 

routines of one input file is 1130 

bytes; for three input files, 1250 
bytes . 
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Input/Output Routines 

The storage requirements for the I/O rou- 
tines depend upon the particular T/C units 
used in the program. 

1. IBM 2560 Multi-Function 
Card Machine tasic 

requirement 240 tytes 

if bcth hoppers are used, 
add 30 bytes 

for input using one \ 
hopper, add / 140 tytes 



or 



for input using two \ 
hoppers, add / 
for punched output, add 
for card printing, add 
+ 64 bytes for each 
print head used 



24G bytes 
150 bytes 
15C tytes 



2. IBM 2520 Card Read-Punch, 
Model A1 

for input cnly 230 bytes 

for input and output 39C bytes 

for cutput only 190 bytes 

3. TEH 2501 Card Reader 15C tytes 

4. IBM 2520 Card Punch, 

Model A2 or A3 190 bytes 

5. IBM 1442 Card Punch 160 bytes 

6. IBM 1403 or 2203 Printer 100 tytes 
for Dual-Feed Carriage, 

add 30 bytes 

Number of Fields, Literals, and Indicators 
Used 

Alphameric fields and literals require one 
byte for each position, The number cf 
bytes for numeric fields and literals can 
be computed with the following formula: 



N + 1 



If K is odd 



N + 2 



If N is even: n = 



word--reqardless of how often it appears in 
the program. 



Each entry in a table is treated like a 
literal: if it is alphameric, the number 
of bytes of core storage reguired is equal 
to the number cf positions (N) in the 
entry; if it is defined as numeric, the 
number (n) of bytes required is determined 
by the above formula. For the entire 
table, the storage requirement is then: 



S = L (K + 1) + 6 

where 

S = number of bytes needed to store entire 

table 
L = lenqth, in bytes, of one table 

entry ( = N, if alphameric; = n, if 

numeric) 
K = number of entries in the table 

The 1 in (K + 1) represents the "hold" area 
for the value selected frcm the table (see 
LCKUP operation, under Calcula tion Specifi - 
cations in the body cf the manual)-. 

The number of bytes required for each 
control level equals the total number of 
positions in the control field pertaining 
to this level. (See Note 2 at the end of 
Appendix A) 

The number of bytes reguired for match- 
ing fields levels (Ml, M2, M3) is computed 
by the following formula: 

(N +1) (H + 1) 

where N stands for the ' t'ctal" nuniief of 

positions in the pertinent fields and M 
stands for the number of input files. (See 
Note 2 at the end of Appendix A) . 

The basic requirement for the special 
indicators (L0-L9, 1P, MR, H1, H2, OF, OV, 
LR) is 2 1 bytes total, regardless of wheth- 
er they are used in the program. Any ether 
indicators used in the program take up one 
byte each, once. 



N = number of positions in the field or 

literal 
n = number of bytes required for the 

numeric field or literal 



Note : At least 200 bytes are always 
reserved for indicators and fields. 

Processing Routines 



Constants and edit words are always con- 
sidered alphameric literals when determin- 
ing storage requirements; tut the actual 
length of an edit word exceeds the speci- 
fied length by cne or two tytes. 

Cere-storage space is reguired cnly once 
for each field, literal, censtant, and edit 



Processing routines contain the instruc- 
tions created from the source specifica- 
tions. Therefore, the storage reguirements 
for these routines depend upon the degree 
of complexity of the program and the number 
of statements used. There are no hard-and- 
fast rules for the computation of these 
requirements. 
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The listing Deiow snows tne approximate 
requirements of the more important entries, 
The storage requirements for processing 
routines are obtained by adding up the 
requirements of all entries used. 



1. Input Specifications 

(a) Record Identification 
Entries; 

Basic requirement for 

each main record 22 bytes 

Basic requirement for 

each OF. record 14 bytes 

+ 2 bytes for a non- 
sequential main 
record (alphabetic 
entries in column 
15-16) 
+ 8 bytes for test of 
record identifica- 
tion code "C" 

or +14 bytes for test of 
record identifica- 
tion code "D" 

or +12 bytes for test of 
record identifica- 
tion code "Z" 

(b) Field Description Entries 
Alphameric fields 6 bytes 
Numeric fields 12 bytes 

+ 8 bytes for field- 
record relation if 
it differs from 
that in the previ- 
ous line 

+18 bytes for first 
field indicator 

+12 bytes for second 
field indicator 

+12 bytes for third 
field indicator 

(c) Control Levels and 
Matching Fields: 

For each file with match- 
ing fields 14 bytes 
For each control 

level used 14 bytes 

For each record that 
contains split con- 
trol fields ( 4 bytes 
For each record that > or 
contains split con- 
trol fields with field- 
record relation y 12 bytes 
For each record that 
contains matching 

fields * 4 bytes 

For each record that 
contains unsplit con- 
trol fields * 4 bytes 
For each control 
field or matching 

field entry * 6 bytes 

* ( See Note 3 at the end of Appen- 
dix A) 



calculation specir 

For ADD/SUB: 

If 

the same name 

for one factor 

and the result 

and 

the length of 

factor is equa 

shorter than t 

of the result 

and 

the number of 

PI ar-oc; -i cr onna 

fields 
For three operands 
than (a) and (b) , 



ications 



(a) 



(b) 



(c) 



+ 6 



to 32 b 
the num 
decimal 
differs 
the fie 



is used 
field 
field, 

the other 
1 to or 
he length 
field, 

decimal 
1 for the 

, other 

above 

ytes if 

ber of 
places 
between 

Ids. 



6 bytes 
36 bytes 



For Z-ADD: 

If the number of decimal places 

in the fields is 

equal 6 bytes 

unequal 24 to 44 bytes 

For Z-SUB: 

If the number of decimal places 

in the fields is 

equal 18 bytes 

unequal 30 to 50 bytes 

For MULT: 

without decimal 
alignment 



(D, 



D 2 = Dr) 



30 bytes 



with decimal 
alignment 

(D ± + D 2 # Dr) 36 to 46 bytes 
(See Note 4 at the end of Appen- 
dix A) 

For DIV: 

without decimal 
alignment 

(Di - D 2 - H = Dr) 36 bytes 

with decimal 

alignment 

(D ± - D 2 - H * Dr) 

46 to 52 bytes 

(See Note 4 at the end of Appen- 
dix A) . 



For MVR 



without decimal 
alignment 

(Dm = Dr) 12 bytes 

with decimal 
alignment 

(Dm # Dr) 18 to 28 bytes 

(See Note 4 at the end of Appen- 
dix A) . 
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For P.CVE: 

From alphameric tc 
alphameric field 
From numeric to 
numeric field 
From numeric tc 
alphameric field 
From alphameric 



to 



12 tytes 
18 tytes 
12 tytes 



tc numeric field 18 to 24 tytes 



For HOVEL: 

Frcm alphameric tc 
alphameric field 
From numeric tc 
numeric field 
Frcm numeric tc 
alphameric field 
From alphameric 
to numeric field 



12 tytes 

24 to 3C tytes 

12 to 18 tytes 

24 to 3C tytes 



For MLLZC, MLHZO, MHLZC, MFHZO: 
From alphameric to 
alphameric field 12 tytes 
From numeric tc 

numeric field 12 tytes 

From numeric tc 

alphameric field 18 tytes 
From alphameric to 
numeric field 24 tytes 

For CCMP: 

numeric fields — 

If the number of 

decimal places is 

egual for the fields 30 tytes 

If the number of 

decimal places 

differs between 

the fields 36 to 40 tytes 3. 



a l.P \} a ?? !? J. i c f i e Id s— 
If both fields are 
of egual length 
If field lengths 
are unegual 



For EXIT: 
For RLAEL: 
For GOTO: 
For TAG: 
For LOKUP: 
For TESTZ: 



If indicator (s) assigned to: 
Plus, Minus, and 

Elank 54 tytes 

Plus and Minus 46 tytes 

Plus or Minus, and 



12 


tytes 


28 


tytes 


4 


tytes 





tytes 


4 


tytes 





tytes 


60 to 108 


tytes 


24 to 54 


tytes 



Blank 

Plus or Minus 

Elank 



For SETOF, SETCN: 
basic 
+ 4 bytes for second 

indicator 
+ 4 bytes for third 

indicator 



42 bytes 
24 bytes 
34 bytes 



10 bytes 



For half-adjusting 

For each different 
resulting indicator 
within one line 



6 to 16 bytes 



Testing condit 
indicators ass 
INDICATORS (CO 
17) — each indi 
However, no 
is consumed 

(a) all the 
cators 
the pre 
in INDI 
identic 
order, 

(b) none of 
indicat 
specifi 
EESULTI 
TORS (C 
59) in 
ceding 



lonmcr 
igned in 
Is. 7 to 
cator 

storage at all 

if 

same indi- 
appear in 
ceding line 
CATORS, in 
al form and 
and 

the same 
ors are 
ed in 

NG INDICA- 
ols. 54 to 
the pre- 
line. 



Cutput-Format Spec 
(a) File Identific 
Control: 
Basic reguirem 
each main reco 
Easic reguirem 
each OR record 
+ 4 bytes f 
stacker 
or spac 
skip en 
not if 
record 
ceded b 
record 
ing the 
stacker 
space a 
entry 
+ 6 bytes f 
printin 
+ 8 bytes f 

output 
+ 2 bytes f 
punchin 



if ications 
aticn and 

ent for 

rd 

ent for 

or each 

select 
e and 
try, but 
the OR 
was pre- 
y another 
contain- 

same 

select or 
nd skip 

or card 

g 

or each 
indicator 
or card 

g 



12 bytes 



8 bytes 



8 bytes 
4 tytes 
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(b) Field Descrip 
Easic Reguire 
+ 8 bytes 

suppre 
+ 8 bytes 
+ 8 bytes 

output 
+ 6 bytes 

After 
+10 bytes 

(alpha 
+ another 

Blank 

or-Ela 



+ 6 



bytes 
with f 
and an 
bytes 
cators 
in sue 



tion Entries 

ment 

for zero 

ss 

for editing 

for each 

indicator 
for Elank 
(numeric field) 
for Blank After 
meric field) 
4 bytes for 
After if a Zero- 
nk indicator is 

for each line 
ield name PAGE, 

additional 6 
if output indi- 

are specified 
h line. 



12 seconds with the 
6 bytes 2520 Card Read-Punch, Model A1 or 

2520 Card Punch, Model A2 
20 seconds with the 

2520 Card Punch, Model A3 
• 70 seconds with the 
I 1442 Card Punch, Model 5 



Note: The times given above refer to a 
core-storage capacity of 4096 bytes. 

Proces sing of the object Pro gram 

The time required to n roce c s th° object 
program depends upon the complexity of the 
specifications and the particular I/O units 
involved. A precise timing calculation of 
a specific RPG object program reguires 
detailed knowledge of the RPG generator. 
No simple rules for timing can be used. 



TIMING FCR THE RPG PROGRAM 

Generatio n of Object P ro gram 

The time reguired for generating the object 
program is estimated by the number of lines 
written on the specifications sheets. The 
first 50 specifications lines reguire 
about: 

3.5 minutes with the 
► 2560 Multi-Function Card Machine, 
\ Model A1 

2501 Card Reader, Model A1 
2520 Card Read-Punch, Model A1 
2.5 minutes with the 

2501 Card Reader, Mcdel A2 
5.5 minutes with the 

2560 Multi-Function Card Machine, 
Model A2 

Each additional 25 specifications lines 
reguire abcut: 

. 5 minutes with 

input devices attached to an IEM 

System/360 Model 20, 

Submodel 1 or 2, or 
0.8 minutes with the 

2560 Multi-Function Card Machine, 

Mcdel A2. 

The time reguired to punch cut the 



:b ject- 



irai 



-\r a +■ +- Vt o cs n /^ 



Generation run is 



60 seconds with the 

2560 Multi-Function Card Machine, 

Mcdel A1 
80 seconds with the 

2560 Multi-Functicn Card Machine, 

MI ~ J ^ 1 H O 



Note 1 



When determining the core-storage 
reguirements for literals, constants, 
edit words, and field names, each is 
counted only once — regardless of how 
often it appears in the program. 



Note 2 



Fields used for c 
matching fields a 
for these purpose 
storage for calcu 
The just-stated s 
refer only to the 
matching-f ields o 
purposes, each po 
numeric as well a 
numeric fields ar 



ontrol levels and/or as 
re stored separately 
s--apart from their 
lations, output, etc. 
torage reguirements 

control-level and 
perations. For these 
sition is counted, in 
s in alphameric fields: 
e not packed. 



Note 3 



Does not apply if the record was pre- 
ceded by another record containing the 
same fields (unsplit control fields and/ 
or matching fields) in the same columns. 



NntP U 



Dl = number of decimal places in Factor 
i 

D2 = number of decimal places in Factor 

2 
Dr = number of decimal places in Result 

Field 
Dm = number of decimal places in 

Remainder 
H = 1, if Half-Adjust specified; 

0, if Half-Adiust not specified 



Appendix A. Storage Reguirements and Timing 259 



APPENDIX B. MACHI^_UNITS_MD_IEAXURES^E2UIRED_AND_^PP0ETED 



The Report Proqram Generator requires a Proce s sing of Objec t Program 
minimum cf machine units tc generate an 

object deck or to process an object pre- The following machine units and features 

gram. These are called reguired. units . can be utilized during the processing of 

Many features and units cf the IBM System 'object programs (the particular units that 

/360 Model 20 can be utilized in the Model »can be attached to the system depend on the 

20 RPG, even though they are net required ^submodel cf the IBM System/360 Model 20 

for object deck generation cr for object Jthat is used), 
program processing. These are called sup - 
po rte d units an d features. The required 

and supported units and features for the • IBM 2020 Processing Unit with 4096 

Model 20 card BPG are itemized fcelcw. (minimum requirement), 8192, 12288, or 

16384 core-storaqe bytes. 

MACHINE UNITS REQUIRED 

• One printer with up to 144 print 
Generation of Object P rog ram positions. 

The minimum machine requirements for • Dual-Feed carriaqe for the IBM 2203 

generating an BPG cbject program are as Printer. 

follows: 

• Card-Printing special feature for the 

• 4C96 hytes of cere storage, • IBM 2560 M ulti- Function Card Machine, 

I Model A1. 

• One card-reading device (if the 2501 

Card Eeader is attached to the system, • One, two, or three input files. 
it must be used). a. Cne input file: 

2560 MFCM, hopper 1, or 
Processi ng o f Obj ect Proqram 2 56 MFCM, hopper 2, or 

2520 Card Read-Punch, or 
The minimum machine requirements for execu- 2501 Card Reader 

tion of the RPG object program are as b. Two input files: 

follows: 2560 MFCM, hoppers 1 and 2, or 

2560 MFCM, hopper 1 and 2501 Card 

• 4096 bytes of cere storage Reader, or 

2560 MFCM", hopper 2 and" 2501 Card 

• Input/Cutput devices as specified for Reader, or 

the object program. 2520 Card Read-Punch and 2501 Card 

Reader 
c. Three input files: 
MACHINE UNITS AND FEATURES SUPPORTED 2560 MFCM, hoppers 1 and 2, and 2501 

Card Reader 
Generati cn of Object Program 

• One, two, or three card output files: 
The following machine units and features a. One card output "file: 

are supported for program generaticn, in 2560 MFCM, hopper 1 or 2, or 

addition to the required units: 2520 Card Read-Punch, or 

2520 Card Punch, or 

• Additional 4096, 8192, cr 12288 bytes of 1442 Card Punch 

core storage b. Two card output files: 

2560 MFCM, hoppers 1 and 2, or 

• One printer with at least a 48-character 2560 MFCM hopper 1 and 1442 Card 
set, for program listings Punch, or 

2560 MFCM hopper 2 and 1442 Card 

• A second card-reading device (if the Punch, or 

2501 is attached to the system, it must 2520 Card Read-Punch and 
be used as one of the card-reading 1442 Card Punch, or 

devices). 2520 Card Punch and 1442 Card Punch 

c. Three card output files: 

• A card-punching device, if the object 2560 MFCM hoppers 1 and 2, and 
program is to be punched. 1 4 4 2 Card Punch. 
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APPENDIX C. ERROR CHECK LIST 



After the programmer has written the speci- 8. 
fixations, and before the source deck is 
keypunched from them, he should thorouqhly 
"desk check" the program. Desk checking 
consists of a visual check of the specif i- 9. 
cations sheets for obvious mistakes, and 
may also include a "manual run" of data 
records through the program. Desk checking 
can eliminate many errors in a new proqram. 10, 

The following are suagestions of items 
to check which, experience indicates, tend 11 
to be sources cf error. It is also an 
excellent idea to review two other appen- 
dices as reminders of points that must not 
be overlooked when writing a program: 



12 



13 



14, 



15, 



16, 



17 



Appendix G - Summary of RPG Specifica- 
tions, and 

Appendix H - BPG Program Listing (diag- 
nostic messages) 



FILE DESCRIPTION SPECIFIC ATICNS 

1. File names must be left- justified . 

2. File type must be I, 0, or C. 

3. DEVICE must contain a valid code. 

4. SEQUENCE (A or D) must be assigned if 
MATCHING FIELDS in the input specifica- 
tions contains an entry, and it must be 
the same for all input and ccmbined 
files. 

INPUT SPECIFICATIONS 

1. The first line must be a record identi- 
fication line. 

2. Record identifications (cols. 7-42) and 
field descriptions (cols. 43-74) must 
not be specified in the same line. 



3. File names must refer to input or com- 19, 
bined files. 

4. File and field names must be 
left- justified. 

5. Every main record-identification line 
must have a SEQUENCE entry. 

6. Any alphabetic SEQUENCE entry in eels. 
15-16 must precede any numeric entry. 20, 

7. The first Numeric SEQUENCE must be 01 
in eels. 15-16. 



Numeric SEQUENCE entries must have 1 or 
N in NUMBER. 



FIELD LOCATION — From and To — must be 
within the limits 1 to 80. 



A field defined as numeric must not be 
specified as greater than 15 positions. 

Field length, format (alphameric or 
numeric) , and number of decimal places 
(if numeric) must be identical every 
place that the same field might be re- 
defined, anywhere in the program. 

The number of decimal places specified 
for a numeric field must not exceed the 
field length. (Exception: packed 
input. ) 

Field Indicators must not be specified 
in PLUS or MINUS for alphameric fields. 

There must be an entry (M 1 , M2, or M3) 
in MATCHING FIELDS for at least one 
card type in each input and ccmbined 
file when there is more than one input 
or ccmbined file. 

The highest level for Matching Fields 
is M3. 

A Matching-Fields level (M1, M2, or M3) 
cannot be split. 

The total number of positions for one 
Matching-Fields level or one Control 
Level must be uniform in all records 
with which it is used. 

a. Control Levels must, be specified in 
ascending seguence. 

b. The aggregate length of a split 
Ccntrol Level must be uniform. 

Remember that Field Indicators assigned 
to ZERC-or-BLANK are on at the begin- 
ning cf program execution, and until 
data is read into the field or the 
indicator is turned off by a calcula- 
tion specification. They also turn on 
when the field is cleared by a Blank- 
After instruction in output 
specifications. 

Do not specify stacker selection on 
input for a combined-file card type for 
which punching or document-printinq is 
to be performed. 
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21. If PAGE is specified as an input field, 
it must te defined as numeric, and 4 
positicns lcng. It cannot te read in 
packed format. 

22. Note that card punch-ccmbinaticn 12-6-8 
= + for literals — not 12 (=&) . 



14. There is no automatic decimal alianment 
in LCKUP or Move operations. 

15. The field names in Factor 2 and in 
Result Field (if used) in a LCKUF 
operation 'must start with TAB. 

16. A table name in an RLABI line must be 
exactly four characters long, the first 
three being TAB. 



CAICULATION SPECIFICATIONS 

1. All detail-time calculation specifica- 
tions must precede those for total time 
(Lx in cols. 7-8) . 

2. Operation codes must be left- justified, 
and worded exactly as described in the 
manual. 

3. Eield names and literals must be 
lef t- justified . 

4. Alphameric literals must be enclosed in 
apostrophes, and numeric literals must 
not te. 

5. Eield length, format (alphameric cr 
numeric) and number of decimal places 

(if numeric) must be identical every 
place that the same field night be 
redefined, anywhere in the program. 

6. A field defined as numeric must net be 
specified as greater than 15 positions. 

7. The number of decimal places specified 
for a numeric field must net exceed the 
field length. 

8. An alphameric field must never exceed 
256 positicns. An alphameric field 
used in a ICKUP operation is limited to 
a length of 80 characters; in a CCFP 
operation, it must net te longer than 
40 characters. 



17. A RESULT FIELD name may not begin with 
TAB unless the operation code is LCKUP 
or RLABL. 

18. RESULTING INDICATORS must be blank for 
all Mcve operations, and for GOTO, TAG, 
EXIT, and RLABL operations. 

19. Half-Adjust must not be used with a DIV 
operation if an MVR operation follows. 

20. The pertinent DIV-operation specifica- 
tions must be in the line immediately 
preceding an MVR operation. 

21. An MVP-operation line must have 
identical entries in INDICATORS (cols. 
7-17) as the preceding DIV-operation 
line . 

22. Remember that total-time calculations 
are bypassed en the first card and — if 
centre! levels are specif ied--until 
after the first card of a type with 
Control Level specified. 



FILE EXTENSION SPECIFICATIONS 

1. larle names must begin with TAB, and 
must be four to six characters long. 
If the table name is to be referenced 
in a B.fl.L. subroutine, it must be 
exactly four characters lcng, including 
TAB as the first three. 



9. An operation (except certain Mcve 
operations) must not involve both 
alphameric and numeric fields. (Hew- 
ever, the functicn table in LOKUP iray 
differ in format from the argument 
table.) 

10. All arithmetic operations require 
numeric fields, and the data must con- 
sist of valid digits (0-9 enly, plus a 
sign in the low-order position) . 

11. TESTZ reguires an alphameric field. 

12. An entry in RESULTING INDICATORS is 
mandatory in CCMP, LCKUP, SETCN, SETOF, 
and TESTZ operations. 

13. Factor 1 and Factor 2 must have the 
same field length in LCKUP operations. 



2. PACKED (cols. 43 and 55) must be left 
blank. 

3. If table LCKUP involves a RESULTING 
INDICATOR in HIGH or LCW, SEQUENCE (A 
or D) should be specified. 



OUTPUT-FCRMAT SPECIFIC ATICNS 

1. All detail time output (D or H in col. 
15) must be specified ahead of all 
total-time output (T in col. 15). 

2. The first line must te a file- 
identification line. 

3. Each main file-identification line must 
have an entry in TYPE (col. 15). 
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4. Fi±6-iaenxincarion ana rxeia- 
description must not be specified in 
the same line. 

5. File names must refer to output or com- 
bined files. 

6. File and field names must be 

left- justified. , 

7. Each field-description line must have 
an entry in END POSITION IN OUTPUT 
RECORD. 

8. ZERO SUPPRESS must be blank if 
CONSTANT-or-EDIT WORD contains an 
entry, and vice versa. 

9. ZERO SUPPRESS can only be specified for 
a numeric field. 

10. Constants and edit words must be left- 
justified, and enclosed in apostrophes. 

11. An edit word can only be specified for 
a numeric field. 

12. A constant (cols. 45-70) and a field 
name (eels. 32-37) are mutually 
exclusive. 

13. An edit word can cause a field tc con- 
sume more space in the output record 
than the defined field lenqth. There- 
fore, when specifying END POSITION IN 
OUTPUT RECORD, make sure net uninten- 
tionally to overlay portions of succes- 
sive fields. 

14. a. Each time PAGE is used in output, 

it is first incremented by 1 ; 
therefore, do not use it in several 
output file-identification groups 
unless the number is supposed to 
advance each time. 

b. PAGE is always 4 positions long, 
numeric, and the units position is 
zoned. Normally, therefore. Zero 
Suppress or an edit word should be 
used. 

c. Entries in OUTPUT INDICATORS of a 
line with field name PAGE do net 
condition the output; instead, when 
the indicator conditions are satis- 
fied, they cause the contents of 
the PAGE field to be reset to 0, 
before the usual 1 is added prior 
tc output. 

15. Output to a file occurs each program 
cycle (at detail or total time — 
depending en the entry in col. 15), 
unless indicators are entered in OUTPUT 
INDICATORS, and the specified indicator 
conditions are not satisfied (i.e., an 
indicator preceded by N is on, or one 
not preceded by N is cf f) . Therefore, 
three cautions are in order: 



a. Output will occur at detail-output 
time before the first card has been 
read (see Figure 6, RPG Program 
logic) unless conditioned by the 
negative status (Nxx) of an indica- 
tor that is then on (e.g., 1P) , or 
by the positive status (ftxx) of an 
indicator that is then off (e.q., a 
card-type Resulting Indicator) . A 
common error is the conditioning of 
an output file by only NMR — and, of 
course, the MR indicator is off in 
the beginning. (Indicator 
Hierarchy — Figure 11 — shows which 
indicators are on in the 
beginning. ) 

Printing before the first card 
has been read is normal for con- 
stants used as report headings, and 
for page number (PAGE) if it is to 
start with 1 ; but output from data 
fields would be blank or zero. 
Usually, the desired printing at 
that time is conditioned by indica- 
tor 1P. 

Punching of combined-file cards 
before the first card has been read 
will completely disrupt the 
program. 

b. Indicators assigned to ZERO-or- 
BLANK in FIELD INDICATORS (input 
specifications) or in RESULTING 
INDICATORS (calculation 
specifications — arithmetic and 
TESTZ operations) are on at the 
beginning of program execution, and 
after execution of field- 
description specifications which 
include Blank-After (B in col. 39) . 

Care is therefore reguired not 
to affect output inappropriately 
because of initial or premature ON 
status of an indicator. 

c. In a file-matching operation, a 
card will be processed (for output 
only) from each file during the 
same program cycle when the files 
match, if the only Output Indicator 
specified is MR. 

This means, for instance, that-- 
when a matched secondary-file card 
is being processed--a primary-file 
card belonging to the next group is 
also processed for output; but it 
is never read. 
Therefore, the output for all card 

files being matched should always 
also be conditioned in OUTPUT INDI- 
CATORS by their card type (or by 
the negative — N — of the other card 
types) , besides the MR indicator 
condition. 



(See Program Exam ples , Pre-Billing with 
Invento ry C ontrol. ]_ 
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16. When there are AND cr OR lines, each 
file-identification line in the grcup 
must have Output Indicators specified. 



17. A Blank-After instruction (B in ccl. 
39) causes the field to be cleared (to 
blank if alphameric, tc zeros if 
numeric) as scon as the data has been 
transferred to the output-storage area. 

If the same field is used for output 
in several field-description lines, be 
careful to place the E in the last line 
executed. Normally, lines are 
executed — within detail-, total-, and 
overflow-output time — in the order in 
which they appear. However, when 
punching and card document-printing 
(interpreting) are bcth specified under 
the same file-identification line, 
transfer to the output-storage area for 
punching precedes transfer for 
interpreting — regardless of which 
specification appears first. 

18. Stacker selection must not be specified 
for the same card type (of a combined 
file) in both the input and output 
specifications. 



If an output operation is to be per- 
formed, stacker selecticn--if any--must 
be specified in the output 
specifications. 



19. Remember that overflow-output time is 
distinct from detail- or total-output 
time. If OF (or OV) appears in OUTPUT 
INDICATORS of a file-identification 
line, and OF (or OV) is on after total- 
time output, the output specified under 
that file-identification line is per- 
formed at overflow-output time. 

Therefore, be careful — if an OR line 
calls for the same output under another 
condition (e.g., L1) — that the output 
dees net occur twice in the same cycle. 
(Usually, the OF line is also made con- 
tingent upon the negative of the ether 
condition — say, NL 1) . 

20. Bear in mind that total-time output is 
bypassed in the first program cycle 
and — if Control Levels are specified — 
until after the first card of a type 
for which Control Level is specified . 

21. On run-in, a specified Control Level 
indicator does not turn on until the 
first card with non-zero (alphameric 
field) data, or non-zerc and non-blank 
(numeric field) data, in the control 

field has been read. 

22. Forms movement is suppressed when cols. 
17-22 in the file- identification line 
are blank (except in OR lines when a 
preceding line specifies forms 
control) . 
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APPtNE iX E. COD.E StR ui'tUkjj, CCILAti NG S-K .Qu ii K cjJi-a F DAT A jOkMAT S 



Although this appendix may te cf general 
interest, the programmer need be familiar 
with it cnly if: 

1. Input cr output data is in packed for- 
mat; or 

2 = An operation is dependent on sequence, 
and the cards are in a non-standard 
sequence; or 

3. Uncommon characters cr zones are 

involved in the data and operations. 

The information provided here is in con- 
densed and ncn-technical fcrm. Greater 
detail, together with more technical data, 
can he found in the SRI publication IBK 
System/360 Model 20 Functional Characteris- 
tics , Form A26-5847. 



Any EBCDIC code can be referenced 
(e.g., in machine-lanquage programming) 
by no more than two characters. 



The symbols chosen to express the 16 
permutations of bits in a half-byte in 
System ^SSO are the digits 0—9 plus the let- 
ters A-F. This is known as a hexadecimal 
code — forming "sixteen" from the Greek for 
"six" and the Latin for "ten". (The system 
itself converts between hexadecimal and bit 
representation.) 

Since each upper half-byte value may be 
associated with every lower half-byte 
value, a 16 x 16 matrix results, yielding 
256 unique bytes. 

Comparison cf Hexadecimal and Decimal 
Notations 



CODE STRUCTURE 

The Basic , Character Unit 

Characters are normally stored and manipu- 
lated in the System/360 Model 20 central 
processor in basic units called bytes. A 
byte consists of eight bits (binary 
digits) . 

While a decimal digit can assume ten 
different values (0-9) , a binary digit can 
cnly take en two alternate states: and 
1. Accordingly, eight bits provide for a 
maximum cf 256 (i.e., 2 8 ) unique entities, 
which is the number cf different characters 
that System/360 can recognize and handle. 

This set of 256 unique characters repre- 
sentable by a single byte is termed the 
Extended Einary-Coded-Decimal Interchange 
Code (EBCDIC) . 

Hex adecim al Notation 

A byte may be thought of as being subdi- 
vided intc two half-bytes: an upper and a 
lower half-byte. Each half-byte consists 
cf four bits. Four bits permit 2 4 permuta- 
tions, sc that a half-byte can represent 16 
different characters. 



In the decimal notation, carry-over to the 
next position occurs at each multiple of 
ten; in hexadecimal notation, it occurs at 
each multiple of sixteen. The difference 
is illustrated below: 

Hexadecimal 




1 

2 

3 

a 

5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 
10 
11 



Decimal 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 



31 

32 



1F 
20 



This offers several benefits — amena 
them : 



255 



FF 



1. A half-byte is adeguate for the storage 
cf a digit (0-9) — see lata Formats, 
below; and 



This shews how two hexadecimal charac- 
ters can represent the decimal range from 
to 255. 
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EICIIC-TIE FIN IICI-MICI UTS 
FUST NUMIT SEMII IHMAIT TIIIO OMMMT 

00*0 0001 0010 0011 0100 1101 0110 0111 



FMHtTH IIIIMIT 



TZM1/ 
SAtW 


iimy 


umy 


nvmy 


Til y/ 


em y 


m / 


si y 


m y 


em y 


ZM / 


h y 


TB S 


eh y 


ih y 


13 / 


™ / 


EM / 


ZM / 


M >" 


t« y 


EM >/ 


ZM / 


M >' 


m y 


em y 


zm y 


M >^ 


TIT / 


EIT >^ 


ZIT ./ 


IT >^ 


m y 


Ell / 


zm y 


N /' 


mi y 


Em / 


vm y 


mi y 


\m y 


im y 


vmy 


m y 


TMJ >> 


vm y 


im y 


M3 y 


tim y 


vm y 


vm y 


M4 >^ 


imS 


vmy 


imy 


MS >' 


tw y 


vm y 


vm y 


Ml >' 


tmt y 


vm y 


vm y 


MT / 




ill! 1001 1011 1011 1110 1101 1111 1111 *— f 

iii /item /lEzn y\mtiyi Ifi *7Tiz yim y\i y\ ' 



miy 


\\\\y 


ezii / 


nitty 


TZl / 


TEt >^ 
•^ 1 


Ki / 


Mli/ 


TZ2 / 


TEl / 
/^ k 


eii y 
^y % 


miy 


TZJ / 


TEJ / 
y i 


EZ3 / 
_y i 


miy 


™ y 




EZ4 / 


nuy 


TZS >^ 


TE5 / 


EZS^' 

yy ¥ 


ms/ 


tzi y 


TEl / 

y • 


ezi y 

y m 


m%y 


TZT >^ 


y * 


y % 


tezt y 


TZI >^ 


TEl / 


ezi y 

y t 


nuy 


tzi y 


tei y 
^y r 


ezi y 

y t 


nu y 


tz« y 


TE«2 / 


EZtt / 


nmy 


fzu / 


TEH y 


EZH / 


nmy 


TZI4 / 


\m y 


EZI4 y 


tezm \y 


TZM / 


way 


ezm y 


nmy 


xm y 


n*y 


imy 


nmy 


nvy 


teit y 


an y 


nmy 




HEXADECIMAL CODE 



J 4 

T > It - Plied 



T I 

UPPER HAU-Brre 

E • 11 - PIICI 



Z • ZEII-FHtl 



Figure D1. Hexadecimal Codes, Bit Structure, Card Codes, and Assigned Standard Graphics 



The EBCDIC Table 

Figure D1 presents the 256 unique EBCDIC 
characters. It is organized as a matrix, 
with the column labels pertaining to the 
upper half-bytes, and the row labels apply- 
ing to the lower half-bytes. 

Along the top and down the right side 
appear the sets of four bits that represent 
each half-byte internally in the system. 
The equivalent single-character hexadecimal 
codes are shown along the bottom and down 
the left side. 

The rectangle at the intersection of 
each column and row indicates 

(a) Above the diagonal line within the 

rectangle: The card punch-combination 
that corresponds to the particular 
EBCDIC character. (T = 12-punch, E = 
11-punch, Z = 0-punch.) 



The transformation between card 
punches and internal binary representa- 
tion is performed automatically by the 
central processor of the system. 

(b) Below the diagonal line: The graphic 
that is normally associated with that 
EBCDIC character. 

To date, only the more common gra- 
phics have been assigned as standard 
for specific EBCDIC characters. 



COLLATING SEQUENCES 

Refer to the EBCDIC table (Figure D1) in 
connection with the discussion below. 

standard Collati ng_Se£uence 

The system assumes the standard ascending 
collating sequence to run from hexadecimal 
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cod~ 00 to FF 'and the converse for 
descending sequence) . The sequence extends 
through all revs of a tatle column before 
proceeding to the top of the next column, 
thus : 

column 0, row 0; column 0, row 1; 02, 
C3, ...; column 0, row F; 

column 1, row 0; column 1, row 1; 12, 
. . ., 1F, 20, . .., FD, FE, FF. 

Hence, for example, in ascending 
sequence : 

1. Ihe period symbol (.) precedes (i.e., 
is lower in sequence than) the exclama- 
tion mark (!) 

2. The exclamation mark ( !) is lower in 
sequence than the 11-punch (-) . 

3. Punch combination EZ987 precedes digit 
0. 

4. All special-character graphics, in 
standard assignments, precede the 
alphabet. 

5. The alphabet precedes (i.e., is lower 
in sequence than) the decimal digits. 

(If descending sequence is specified, the 
converse applies.) 

Thus, the standard ascending collating 
sequence for the most cemmenly used charac- 
ters is: 

blank, S, -, /, A-Z, 0-9. 

(The converse applies to descending 
sequence .) 



Altered Colla tin g Sequence 

RPG permits the user to substitute any 
desired collating sequence for the IEM 
System/360 standard collating sequence (see 
abeve) . Among likely reasons for such a 
substitution could be the use of ASCII 
(American Standard Code for Information 
Interchange) . 

Operations to Which Applicable 

When a user-specified sequence has been 
substituted, it applies during object- 
program execution to the collating seguence 
in: 

1. Alphameric CCMP (Compare) operations; 
and 

2. Matching Fields operations (inatching 
and sequence checking) . 



Mafr-liirti 



T?*i£}1/^c at-o 



specified, characters in hexadecimal column 
F should not be converted to characters in 
hexadecimal columns 0-E. 

When an altered collating seguence has 
been provided to the program, it applies 
uniformly to all of the above operations — 
it cannot be confined to an individual 
specification. 

Collating sequence cannot be altered 
for: 

1. CCMP operations on fields defined as 
numeric ; 

2. Table ICFUP operations; or 

3. Control Level data. 

The standard collating sequence is 
always applicable to these operations. 

Steps in Altering Collating Sequence 

1. Punch the letter A into col. 17 of RPG 
processor-deck card JC10001. (RPG 
processor-deck cards contain J in col. 
73, and are numbered in cols. 74-79.) 



Alternatively, duplicate processor 
card J010001, and punch A into col. 17 
of one of the two copies. Ee-insert 
the altered card in the processor deck, 
saving the other one for jobs with 
standard collating seguence. 



Punch a translation table into a series 
of four cards, as described below. 



3. Insert the four translate on— tab^ e cards 
and the modified processor-deck card 
(J010001) into the complete RPG input 
deck each time an object proqram that 
utilizes the altered collating seguence 
is to be generated by RPG. 

(The correct insertion of those 
cards is described in the SRL publica- 
tion IBM System/ 360 Mo del 20, Report 
Pr ogram G ene rat o r for Pun ch-Card Eguip - 
ment, Operating Proced ures , Form 
C26-3800.) 

Format of Translation-Table Cards 

Column s En tries 

1 ~ 5 Card seguenc e number 

Any numeric characters may be 
used, so long as the seguence is 
ascending for the four cards 
(described below) . (The same 
format as for REG specifications 
cards— i.e., page number and card 
number — is suggested.) 
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6 Card identification 
S = mandatory entry 
7-70 Transla tio n table 

See explanation below. 
71-80 Unused 

May be used for any desired iden- 
tification. EPG ignores entries 
in these columns. 

Translation Table 

The collating seguence is punched into a 
set of four cards. If any deviation from 
the standard collating seguence is desired, 
all four cards must be prepared, even 
though the change might be confined to only 
one guadrant of the EBCDIC table . 

Each of the four cards provides for 
assigning positions in the collating 
seguence to the 64 punch combinations in 
one of the four guadrants (blocks of 64 
punch combinations) in the EBCDIC table 
(Figure D1) . 

The first card assigns seguence posi- 
tions to the punch combinations in the 
first guadrant — table columns labeled with 
hexadecimal codes 0, 1, 2, 3. For example: 

Table Column 0, Row corresponds to 

card column 7. 
Table Column 0, Row 1 corresponds to 

card column 8. 
Table Column 1, Row corresponds to 

card column 23. 
Table Column 3, Sow F corresponds to 

card column 70. 

The second card assigns seguence posi- 
tions to the punch combinations in the 
seeeftfl g«a4r a-nt- — table- columns labeled 4 , 
5, 6, 7. 

The third card for the third guadrant — 
table columns labeled 8, 9, A, B. 

The fourth card for the fourth 
guadrant — table columns labeled C, D, E, 
F. 

For characters that are to retain their 
standard position in the collating 
seguence, punch the character as it appears 
in the EBCDIC table, into the card and 
column that corresponds to that position in 
the table. 

The procedure for assigning a particular 
character (say, alpha) to a non-standard 
position in the seguence is: 

1. Determine the card and column occupied 
by that character (alpha) in the stan- 
dard collating seguence. 

2. Determine the character (say, beta) 
that occupies the position in the stan- 



3. 



dard seguence to which character alpha 
is to be transposed. 

Punch character beta into the standard 
column for character alpha. 



It is permissible to assign a character 
to a new position in the collating 
seguence, and also retain the character 
normally in that position in its standard 
position in the seguence, by also punching 
it in its standard column. The two charac- 
ters are then treated as egual in Matching 
Fields and alphameric COMP operations. 

Representative examples are presented 
further below. 

The following rules apply to the assign- 
ment of a non-standard collating seguence: 

1. All four cards must be used. 

2. Only those of the columns 7-70 in each 
card need be punched whose correspond- 
ing punch combinations in the standard 
collating seguence — as shown in the 
EBCDIC table — occur in the input data. 

3. If a character-column is left blank, 
but the punch combination corresponding 
to that column in the standard collat- 
ing seguence does occur in the input 
data, that punch combination is con- 
verted to the seguence position of 
"blank" (hexadecimal 40) . 

Examples of Translation 

1. A character is to retain its standard 
collating-seguence position. 

To retain E83 ($) in its standard 
collating seguence position: 

Punch 11-8-3 ($) into column 34 of 
the second card--the column that corre- 
sponds to the standard-seguence posi- 
tion of the $ symbol. 

(Note that translation cards are 
reguired at all only if there is any 
deviation from the standard collating 
seguence somewhere in the EBCDIC 
character set.) 

2. A character is to be transferred to a 
non-standard collating-seguence 
position. 

To transfer E83 ($) to the seguence 
position immediately after digit 9: 

Punch 12-11-0-9-8-2 — the stan- 
dard punch combination following 
digit 9 — into column 34 of the 
second card--the column that corre- 
sponds to the standard-seguence 
position of the $ symbol. 
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3. 



4. 



5. 



If nothing is punched in column 
65 of the fourth card--the standard 
position for 12-11-0-9-8-2 — the 
punch combination 12-11-0-9-8-2/ if 
it occurs, is converted to the 
sequence position cf "fclank" . 

Several characters are to te trans- 
ferred to the same ncn-standard 
collatinq-seguence position. 



Tc transf 
the sequence 
ceding the a 
fcoth to be t 
sequence: 

Punch 
combinati 
A — into c 
second ca 
spend tc 
tiens of 
respectiv 
in column 
standard- 
the punch 
occurs, i 
position 



er E82 (!) and E84 (*) to 
position immediately pre- 
Iphabet, and thus cause 
reated as equal in 

12-0 — the standard punch 
en precedinq the letter 
olumns 33 and 35 of the 
rd — the columns that ccrre- 
the standard-sequence posi- 
the (!) and (*) symbols, 
ely. If ncthinq is punched 

7 of the fourth card — the 
sequence pesitien cf 12-0 — 

ccmbinaticn 12-0, if it 
s converted to the sequence 
of "blank". 



The sequence positions of two charac- 
ters are to be interchanqed. 



To in 
position 
2: 



terchange the relative sequence 
s of the letter B and the diqit 



a. 



Punc 

sequ 

lett 

fcur 

spon 

posi 

Eunc 

sequ 

the 

fcur 

spen 

pesi 



h 2— t 
ence p 
er E — 
th car 
ds to 
tion o 
h E— t 
ence p 
digit 
th car 
ds to 
tion o 



he cha 
ositic 
into c 
d — the 
the st 
f the 
he cha 
csitic 
2— int 
d — the 
the st 
f the 



racter f 
n to be 
clumn 9 

column 
andard-s 
letter B 
racter f 
n to be 
c column 

column 
andard-s 
digit 2. 



cr the 
assumed by 
of the 
that ccrre- 
equence 

or the 
assumed by 
57 cf the 
that ccrre- 
eguence 



A character in its s 
to be combined with 
The example chosen w 
signed positive valu 
can he combined with 
values, without sacr 
ty of negative value 
(The example assumes 
defined as alphameri 
not used in arithmet 
operations.) 



tandard position is 
another character, 
ill illustrate how 
es (12-overpunched) 

unsigned positive 
ificing the identi- 
s (1 1-overpunched) . 

that the field is 
c, and therefore 
ic or edit 



Tc combine the letter A (12-1 with 
the digit 1, in the position occupied 
by the digit 1 in the standard collat- 
ing seguence: 
a. Eunch 1 — the character for the 

sequence position to be assumed by 



b. 



the letter A — into column 8 of the 
fourth card — the column that corre- 
sponds to the standard-sequence 
position of the letter A. 
Also punch 1 into column 56 of the 
fourth card — its standard-sequence 
position. 



DATA FORMATS 

Alphameric Fields 

Data for fields defined as alphameric is 
stored in the IBM 2020 central processing 
unit with one character per byte (see Code 
Structure , above) . 

The byte bas the bit structure shown in the 
EBCDIC table (Fiqure D1). For example: 

1. The letter A occupies one byte composed 
of the bits 1100 0001 — equivalent to 
hexadecimal code C1 and card punch- 
ccmbination 12-1. 

The C may be considered the zone 
portion of the character. 

2. The asterisk (*) occupies one byte com- 
posed of the bits 0101 1100 — equivalent 
to hexadecimal code 5C and card punch- 
combination 11-4-8. 

3. The numeral 4 occupies one byte com- 
posed of the bits 1111 0100 — equivalent 
to hexadecimal code F4 and card punch 
cede 4. 

The F can be considered the zone 
portion of the character. An F zone is 
tantamount tc no zone for a diqit (0-9) 
in an alphameric field — the absence of 
a zone punch over a diqit at input, 
causes an F zone tc be assigned; at 
output, an F dees not cause a zone to 
be punched over a digit (0-9) . 

Numeric Fields 

Because four bits are adequate to represent 
any decimal diqit (0-9) , only a half-byte 
is needed in storaqe for each position of a 
field defined as numeric, except: 

(a) A half-byte is reserved for the siqn — 
all numeric fields are signed, although 
the sign may be hexadecimal F (tanta- 
mount tc no sign) ; and 

(b) Each field must consist cf full bytes — 
a half-byte must, therefore, be wasted 
in fields with an even number of digit 
positions. 

The method of storing two digits in one 
byte is termed packed-decimal format, and 
is illustrated below. 
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Packed-Decimal Format 

All fields defined as numeric are stored by 
RPG in packed-decimal format. Normally, 
the conversicn to packed format is per- 
formed by BPG after the data has been read 
in; but, if "Packed" is specified in the 
input specifications for the field, the 
packing routine is bypassed, the data then 
being assumed already to be in packed for- 
mat. Core storage in packed format can be 
portrayed as follows: 



The maximum size for a numeric field is 
bytes (i.e., 15 digits and sign). 



Digit positions (i.e., all but the low- 
order half-byte) must not contain bits 1010 
through 1111 (i.e., hexadecimal A-F) if the 
field is to be used in arithmetic, CCMP 
(compare), cr edit (including Zero- 
Suppress) operations. These operations are 
based on decimal arithmetic; therefore, the 
digit values must lie within the decimal 
range (0-9) . 



If the number of digit positions in the field is odd — 

4 bits 4 bits 4 bits 4 bits 4 bits 4 bits 



digit digit digit digit digit 



sign 



byte 



byte 



byte 



If the number of digit positions in the field is even — 

4 bits 4 bits 4 bits 4 bits 4 bits 4 bits 



0000 


digit 


digit 


digit 


digit 


sign 



—v — 
byte 



byte 



byte 



Data Input and/or Cutput in Packed Format 

Reasons and the proper specifications for 
reading numeric data into or out of the 
System in packed form were given under 
Input Specificat ion s (Packed — col. 4 3) and 
under Cutp ut- F ormat Specif i cations (Packed 
Field--col. 44) , together with formulas for 
eguating field lengths in packed and 
unpacked formats. 

Figure D2 gives seme examples of num- 
bers, the format in which they are stored 
in the processor, and the corresponding 
card punch-combinations if packed format is 
specified for input from or output to 
cards. Reference tc Figure D1 (EBCDIC 
table) will clarify the examples. 



NUMBER 


STORED IN CORE AS 
(Expressed in Hexadecimal Notation) 


CORRESPONDING PUNCHES IN CARD COLUMNS IF 
PACKED FORMAT IS SPECIFIED 


Max. = 15 digits 


i 

2 

4) O 

So 
Byte 


i 

2 

Byte 


i 

| 

£-* 

5" ° 

Byte 


2 

M 

Byte 


2 
Byte 


i 
1 

d) J) 

M 

Byte 


i 

2 

Byte 


2 

U 

Byte 




1234 












01 


23 


4F 












12/9/1 


0/9/3 


12/8/7 


+1234 












01 


23 


4C 












12/9/1 


0/9/3 


12/8/4 


-1234 












01 


23 


40 












12/9/1 


0/9/3 


12/8/5 


97531 












97 


53 


IF 












12/H/7 


12/11/9/3 


11/9/8/7 


+97531 












97 


53 


1C 












12/11/7 


12/11/9/3 


11/9/8/4 


-97531 












97 


53 


ID 












12/11/7 


12/11/9/3 


1 1/9/8/5 


29486670 








02 


94 


86 


67 


OF 








12/9/2 


12/11/4 


12/0/6 


11/0/9/7 


12/9/8/7 


+29486670 








02 


94 


86 


67 


OC 








12/9/2 


12/H/4 


12/0/6 


1 1/0/9/7 


12/9/8/4 


572768911504329 


57 


27 


68 


91 


15 


04 


32 


9F 


12/11/9/7 


0/9/7 


1 1/0/9/8 


12/11/1 


11/9/5 


12/9/4 


9/2 


12/H/8/7 


^57276891 1504329 


57 


27 


68 


91 


15 


04 


32 


9D 


12/11/9/7 


0/9/7 


1 1/0/9/8 


12/11/1 


11/9/5 


12/9/4 


9/2 


12/H/B/5 


+57276891 150432 


05 


72 


76 


89 


11 


50 


43 


2C 


12/9/5 


12/11/0/9/2 


12/11/0/9/6 


12/0/9 


11/9/1 


12 


12/0/9/3 


0/9/8/4 


-57276891 150432 


05 


72 


76 


89 


11 


50 


43 


2D 


12/9/5 


12/11/0/9/2 


12/11/0/9/6 


12/0/9 


11/9/1 


12 


12/0/9/3 


0/9/8/5 



Fiaure D2. Examples of Packed-Decimal Data in Core and Cards 
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APPENEIX E. PROGRAMMING TIPS 



TIPS FCR fINIMTZING CORE-STCRAGF 
REQUIREMENTS 

These are generalized suggestions: not 
every one necessarily holds true under all 
combinations cf conditions, nor are they 
always practicable because cf ether factors 
involved. (Refer also to Storage Re guire- 
ments, Appendix A.) 



1. 



2. 



3. 



4. 



(a) If all pertinent input fields in 
several card types are in the same 
columns, and the format (e.g.., 
alphameric, cr numeric and number 
cf decimal places) corresponds 
tetween the types, define all such 
cards as one type. 

(b) If the majority cf the input fields 
are identical, use OR lines and 
Field-Record Relation entries rath- 
er than completely separate file 
identifications. 



(a) 



(b) 



Use the same field name for dif- 
ferent input fields in different 
card types when field size and for- 
mat (alphameric, cr numeric and 
number of decimal places) are 
identical, if the data need not be 
preserved frcm one card type to the 
ether. 

Use the same field name repeatedly 
in calculations as result field for 
various different items whenever 
the result need no longer be 



j. c Laiucu 



(a) 



(b) 



field in several calculations. 
(See CSTEXT in Figure 68 — Parts II 
and III.) 

Use the minimum number cf Record- 
Identif icaticn Cedes to identify a 
card type. 

Use.C for record-identification 
cede in preference to D cr Z. 



When there are several card types per 
input (or combined) file, two control 
levels (say, L 1 and 12) usually take 
less core than one split level. 

Emplcying Matching-Fields specifica- 
tions solely fcr purposes of sequence- 
checking a single file en cne or two 
fields reguires more cere than seguence 
checking by comparing (CCMP) in the 
calculation specifications. For alpha- 
meric fields, this is still true fcr 
three fields. (Figure 68 — Fart I illu- 
strates COMP fcr sequence-checking. 
Note that the compare data from one 
card is saved for the next card.) 



Seguence-checking by COMP operation 
also permits detection of duplicates 
(shown in Figure 68 — Part I) , which is 
not part of the Matching-Fields 
seguence-check function. 

Note: Seguence-checking a single file by 
CCMP operation, rather than by Matching- 
Fields entries, also tends to improve 
throughput: a Matching-Fields specifica- 
tion delays the reading of the next card. 

6. Try to keep the source columns for each 
Ccntrcl-Level or Matching-Fields input 
field uniform in all card types. 



7. 



10 



Use Field Indicators in input specifi- 
cations in preference tc COMP operation 
in calculations. 



(a) 



and 
(b) 



Where feasible, group together cal- 
culation specifications conditioned 
by the same indicators (cols. 
7-17). (In this context, "same" 
also implies identical status cri- 
terion for an indicator: either on 
or Not on in all lines.) 

When successive specifications 
lines are conditioned by the same 
indicators, specify the indicators 
in the same order (cols. 9-11, 
12-14, 15- 17) . 



When the same indicator is assigned as 
Resulting Indicator (cols. 54-59) in a 
specifications line, and as condition- 
ing indicator (eels. 7-17) in that and 
the next line, there is no core saving 
if the two lines contain identical con- 
ditioning indicators. 

(a) Try to define the number of decimal 
places to be uniform for all 
numeric fields or literals used in 
one arithmetic or compare 
operation. 

(b) For ADD/SUB operations, also try to 
have fields cr literals of egual 
length . 
For comparing (CCMP) alphameric 



(c) 



literals of egual length. 



When a number of fields are to be 
edited for output, define as many of 
them as possible with the same length, 
and edit them uniformly. This reguires 
storage cf only a single edit word. 



11. (a) In ADD and SUB operations, signifi- 
cant core space is saved when the 
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Result Field and Factor 1 and/or 
Factor 2 are the same, provided the 
ether Factor is of equal or shorter 
length and all three have the same 
number of decimal places. 

(b) In Z-ADD and Z-SUB, significant 
cere space is saved if the twe 
fields have the same number cf 
deciaal places. 

(c) In MULT, DIV, and MVR, core space 
is saved if no decimal alignment is 
required. 



12. To clear a numeric field tc zero, use 
SUB, with field name in Factor 1 = Fac- 
tor 2 = Eesult Field. 



13. To turn indicators on or off (as 

Resulting Indicators) in calculation 
specifications, based en whether 
numeric-field contents are plus, minus, 
or zero, add a literal zerc rather than 
comparing with a zero. 

Fcr the core savings to be realized: 

(a) The Ees-ult Field must be the same 
as one of the two 1 Factors; and 

(b) The literal zerc must be specified 
v»ith the same number of decimal 
places as in the ether Factor 
(e.g., 0.00 or .00) . 

m. Specify one SETON (or SETOF) with two 
cr three indicators in preference to 
separate SETON (or SETOF) for each 
indicator. 



TIPS CN SPECIAL PROGRAMMING REQUIREMENTS 

This section consists of suggestions for 
satisfying some common, yet non-routine, 
programming requirements. Most of the 
hints are presented in the form of illus- 
trative RPG specifications, each preceded 
by a statement of the problem and followed 
by a brief explanation; but some hints lend 
themselves best to narrative format. (Two 
examples are included that involve branch- 
ing to E.A.L. subroutines.) Those tips 
already included in illustrations in the 
body cf the manual are not repeated here. 

An attempt has been made to group the 
pointers by the type of specifications with 
which the problem is most closely 
associated. 



Input-Oriented Point er s 

Group Indication on "Run-In" 

Proble m; At the beginning of the deck, a 
Control-Level L-indicator does not turn on 
until detail-calculation time for the first 
card of a type for which Control Level is 
specified a nd wh i ch is not zer o (if alpha- 
meric field) , or not blank cr zero (if 
numeric field) i n t h e co ntro l fiel d. 

Figure E1 illustrates a method for 
assuring group indication at the beginning 
of each group, even when the control field 
in the first such card is blank or zero. 



15. Use GOTO to: 

(a) Eypass a grcup cf inapplicable cal- 
culation specifications — rather 
th-a^i ~GOfl4iti-efl-iftg — ea-eh- -b-y— indica- 
tors, particularly when several 
conditioning indicators would be 
required therefor. (See illustra- 
tion in Figure 68 — Parts I, II, and 
III.) 

(b) Utilize the same series of calcula- 
tion instructions, applicable under 
different circumstances at dif- 
ferent points in the calculation 
specif ications, --rather than 
repeating identical, or near- 
identical, specifications. (See 
Sguare Root illustration belcw — 
Figure E12.) 

16. Punch constant data (such as date, for 
example) into the input card in edited 
format — rather than using an edit word 
in output specifications. 

17. When testing for specific numeric codes 
in a field, define the field as alpha- 
meric and ccipare (CCMP) to alphameric 
literals . 



Assumpticn : Control Level 1 was assigned 
in the input specifications (cols. 59-60) 
to the pertinent card type and field. 

Ex planation : The L1 indicator is turned 
on, by a SETON operation, in the detail- 
time calculations during the first program 
cycle. This assures that L1 is on for 
group indication during detail-time output 
for the first card. The program itself 
turns off LI after each detail-time output. 
Thereafter, normal Control Level operation 
turns en L 1 at the end of each control 
group. 

The SETCN instruction also turns on 
another indicator (say, 90) . By condition- 
ing execution of the SETON specification by 
N90 (cols. 9-11), L1 is never again turned 
on by the SETON instruction — only at the 
beginning cf program execution, when indi- 
cator 90 is off. 

If desired, additional L-indicators 
(say, L2) could also be SETON for the first 
card. Remember, however, that SETON of L2 
does not automatically set on L1 — both must 
then be specified. 



272 System/360 Model 20 CPS Report Program Generator 



Checking That Output-card Jrields are clank 
Eefore Output 

Problem: The user sometimes desires 
assurance that the card fields into which 
output will be punched are blank; i.e., 
were not inadvertently punched in a prior 
operation. 

Solut ion : 

1. Define the file as a combined file. 

2. Define the file in the input as well as 
the output specifications. 

3. Define the area to be output-punched as 
a single continuous alphameric input 
field (if practical--ctherwise / as sev- 
eral fields) . 

4. Assign an indicator (C1-99) to Field 
Indicators, Elank (eels. 69-70) . In 
the detail-calculation specifications, 
SETCK HI or H2 if the indicator 
assigned to Blank is net on. The sys- 



tem will halt when the card has been 
processed; punching can be suppressed 
by Output Indicator NH1 (or NH2) . 

Note: 

1. The approach assumes a read-punch I/O 
device . 

2. If the area is broken into several 
fields, do not assign the same indica- 
tor to more than one field — otherwise 
it can be turned on again by a later- 
specified field even if turned off by 
an earlier one. 

3. Punching is assumed to be at detail 
time, because Field Indicator status is 
not available until detail time. 

Control Levels Initiated by Card Type 

Probl e m A : A Control level (say, 11) is 
specified in the noriral manner in the input 
specifications. In addition, a higher 
level (say L2) is to be initiated precedin g 
the processing of a card of a cert.ain type. 
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Figure E1. Group-Indication, Even When Control Field is Zero in First Card of Deck 
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Figure E2. Control levels Initiated ty Card Type--Regular Control Level Also Specified 



Assu mption : A separate card-type Eesultinq 
Indicator (say, 80) lias teen assiqned to 
the card type which is tc initiate the 
higher-level ccntrcl break. 

Fiqure E2 (Parts I and II) shows two of 
several possible proaramnirg methods. Part 

I assumes that the 11 ccntrcl field also 
exists in the special L2-level card. Fart 

II assumes that the special I2-level card 
contains no ether control field, and it is 
necessary to prevent the occurrence cf a 
spurious II break after it — when the 11 
field of the next regular card is ccirpared 
with that in the last preceding regular 
card . 



Expla nation — Pa rt I : The first total-time 
instruction turns en 1,2. L1 must also be 
SET0N, because lower levels do not automat- 
ically turn on when a higher one is turned 
on by SETCN. All L-indicators are turned 
off by the program itself after the next 
card has been read, and before its control 
fields are compared. 



The specifications must be at total time 
(LO in eels. 7-8, because another L- 
indicator is not necessarily en) , and must 
be the first ones at that time so that 
others are properly conditioned by the sta- 
tus, of L1 and L2. 
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wishing tc utilize L2, the same results can 
be accomplished ty simply conditioning the 
operations concerned by indicator 80 
itself — remember that totals, toe, can be 
conditioned by any indicator, and are not 
dependent on a Ccntrol-Ievel indicator. 

Explanation; — Par t II : As Part I; but, in 
addition, indicator 81 is turned on when- 
ever L2 is turned on. 8 1 is used tc turn 
eff L1 next cycle, when it may have been 
spuriously turned en by the regular next 
card following the special card: at the 
same time 81 is turned off, so that 11 
turned en by subsequent (legitimate) con- 
trol breaks is not artificially turned off. 

Problem_E: A Control Level (say, LI) is to 
be initiated foll owi ng the processing cf a 
card of a particular type (say, identified 
by card-type Resulting Indicator 8C) . 

Figure E2 — Part III shews one cf several 
solutions. 

Explanation—Part III: Curing detail-time 
processing of a card of the relevant type 
(indicator 80) , another indicator (say, 90) 
is SETON (see second line) . Indicator 90 
is then on at the beginning of processing 
cf the next card (total time) and until 
SETOF at detail time of the next cycle (see 
first specifications line) . As the first 
total-time calculation specification (see 
third line), L1 is SETCN if 90 is en — thus: 
L1 is turned on at the beginning of proces- 
sing for the card following a type-80 card; 
it remains on until turned off by the pro- 
gram itself after the card has been com- 
pletely processed. 

Note: If the purpose is merely to 
calculate or output totals following a card 
of a particular type — not tc utilize data 
frcm, or punch into, the next card in some 
selective manner — none of the special 
calculation specifications shown in Part 
III are necessary. 

The indicator (80) of the card that is 
to be followed by the special operations is 
en throughout its processing. Tctals can 
be calculated or output at detail time as 



well as at total time* The simplest 
solution then is tc specify all such 
calculations and/or output as the last 
det ail - time calculations and output, 
respectively — conditioned by indicator 80. 
Detail-time operations on the data in the 
type-80 card have then been completed 
before the operations that are to follow a 
card-type 80. (See also Figure E5 for 
another approach.) 

Problem C : No Control Level is specified 
in cols. 59-60 of the input 
specifications; but Control Level L1 is to 
turn en preceding the processing of a card 
of a certain type. 

Solu tion (one cf several) : Assign 
Resulting Indicator Li in cols. 19-20 in 
the card-type identification specifications 
for the pertinent card type. 

Control On A Signed Field--No Break Between 
Unsigned and Plus-Signed Cards 

Proble m : Occasionally , a Control Level 
must be assigned to a numeric field that 
contains positive and neqative values. If 
the sign is to be ignored, no problem 
exists: defining the field as numeric 
strips the zones frcm control. If the siqn 
must be considered, and positive fields are 
never or always signed ( 12-cverpunch) , no 
problem exists either: defining the field 
as alphameric retains all zones for 
control. (It is assumed that negative 
values contain an 11-overpunch in the 
low-order position.) 

It is, hewever, possible that positive 
values in some cards are signed 
f 1 2~ over pu nch) , and others are not. This 
situation may arise, for instance, if some 
cards were created as unedited output in a 
previous Model 20 operation, while others 
were keypunched. 

Figure E3 shows how it is possible to 
control on such a field, distinguishing 
between positive and negative values — yet 
not breaking control between identical 
positive values, seme of which are 
12-overpunched in the sign position while 
others are not. 
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Figure E3. Control on a Signed Field, No-Zone and 12-Zone Combined 



Explanation: Cards with a negative value 
in the field (11-punch in col. 10) are 
assigned a different card-type Resulting 
Indicator (11) from those that are not 
negative (no 11-punch in col. 10 
— indicator 12) . No distinction is made 
between the non-negative cards with and 
without a 12-overpunch in the low-order 
position: thus, indicator 12 represents 
all positive-value cards. 

The field {cols. 5-10) is defined as 
numeric, and a Control-Level indicator (L1; 
is assigned in the normal manner (cols. 
59-60 of the input specifications) . This 
provides normal Control on the absolute 
numeric value in the field, ignoring sign: 
if the absolute value differs in two 
successive cards, L1 turns on before 
total-calculation time. 



The calculation specifications shown are 
irrelevant when LI has already been turned 
on by a change in absolute value; but they 
do not interfere, because they do not cause 
L1 to turn off. However, if L1 is not 
on--i.e., the absolute value did not change 
from the previous card — they cause L1 to 
turn on if the sign of the value changed: 



The last line causes indi 
turn on if the value is n 
the next program cycle, L 
if either (1) the value i 
(indicator 11) and that i 
card was not (21 not on)- 
line — or (2) the value is 
(indicator 12) but that i 
card was negative (21 on) 
second line. The third 1 
turns off indicator 21 so 



cator 21 to 
egative. On 
1 is turned on 
s negative 
n the previous 
-see the first 

not negative 
n the previous 
— see the 
ine merely 

that it does 
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not remain on lOxxowing a ucu.u wilu a 
positive value. 

In order to condition ether total-time 
operations properly lased en the status of 
LI, these specifications must be the first 
cnes at tctal time. Since, ty definition 
of the problem, these specifications are 
significant only when 11 is not already on, 
LO is required in cols. 7-8 to define them 
as pertaining to total time. 

Ncte that Field Indicators or Compare on 
the field contents — instead of OB lines and 
card-type Resulting Indicators — could not 
be used, because that information from the 
new card is not available at total time 
(see Figure 6, RPG Program Logic) . 

Note: See also Altere d Co ll at ing Se quence, 
Appendix D, for combining C-zone and F-zone 
characters for Matching Fields operations 
en alphameric field. 

Indexing — Analyzing and Terming Fields 
Position-by-Positicn 

Problem: A card type contains a variatle 
number of fields of variable length, and 
these fields are to be printed separately. 

A common application invclves 
name-and-address cards in which the -user 
has not assiqned a field of fixed length to 
each portion (name, street address, 
city-state), and the number of fields (data 
print lines) is allowed tc vary (usually 
from two tc four) . 

Figure E4 (Part I) shews EPG calculation 
specif icatiens that offer cne solution (in 
conjunction with appropriate input and 
output specifications) . Part II of Figure 
E4 suogests a method of eliminating 
unnecessary print cycles when the card 
contains less than four fields. 

Assumpticns : 

1. Each name-and-address card contains one 
to four name-and-address fields. 

2. Each field allows for 1-18 positions of 
data. 

3. The last data character in each 
utilized field is followed by a special 
symbel ($ was arbitrarily chosen) . 

4. The last field used is followed ty two 
$ symbols. 

5. The group of fields is defined in the 
input specifications as a single 
77-pcsition alphameric field, named 



1 O - TO 



symbols = 77) 



Solution: Figure E4 — Part I — should be 
studied line by line, and the operation 
simulated on a piece of paper. Basically, 
a source field is shifted left one position 
at a time, repeatedly (lines 18 and 05), 
until it is exhausted (indicator 80 on) . 
Each time, the leftmost position is 
examined tc see whether the $ symbol, 
terminating a field, has been reached (line 
09) . A test is also made for two $ symbols 
in succession, signalling the end of data 
(lines 06, 07, 09, and 10). The characters 
(line 08) up to a dollar symbol are 
assembled, one at a time, in the field 
RESULT (lines 13, 15, and 16). 

The shifting is accomplished by moving 
between a work field (WORK1) and the SOURCE 
field (lines 11 and 12), and between WORK2 
and RESULT (lines 15 and 16). The work 
fields differ in length by one position 
from the corresponding SOURCE and RESULT 
fields which, in conjunction with 
appropriate use of MOVE and MOVEL 
operations, accomplishes the desired end. 

Stepping the data tc the left in the 
RESULT field is continued even when the 
data field contained less than 18 
positions, so that the output will be 
left-aligned (lines 17-19, and 14) . For 
this reason, a counter (CHRCTR = character 
counter) is initialized at 18 for each 
field, and decremented for each shift 
(lines 03, 04, 17, and 30). If the data is 
to be right-justified in the output field, 
the specifications lines preceded with 
asterisks should be omitted. 

Four output fields (PRINT1, 2, 3, and 
4 — see lines 21, 23, 25, and 27) are set up 
to receive the data which has been 
assembled in the field named RESULT from 
the respective portions of the consolidated 
input field (SOURCE) . A counter (FLDCTR = 
field counter) keeps track of which data 
field in the consolidated field SOURCE is 
being processed; it is reset to zero at the 
beginning cf the entire operation, so that 
it is always cleared when processing of the 
next name-and-address card starts. (See 
line 29, and lines 01 and 02 — we have 
assumed that the user specified GOTO START 
at the appropriate point in the calculation 
specifications for a name-and-address card, 
and branches around this section on other 
Card types.) The COMP operations in lines 
20, 22, 24, and 26 determine, based on the 
contents of FLDCTR, to which of the four 
output fields the data in the field RESULT 
belongs. 
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Because no more than four fields are 
permitted, H1 (line 26) is turned on (to 
halt the system) , if the field-counter 
value exceeds 3. (3 — not 4 — is the 
criterion, because we start with 0, and do 
not increment until the first field has 
been processed — see line 29.) When the two 
successive $ symbols are encountered at the 
end of an earlier field 'i.e. less tha 71 
four fields appear in the card) , the entry 
in line 10 prevents further processing. 

The field RESULT must be blanked (line 
28) after the processing of each field of a 
card: because only eight blanks can be 
moved as a literal, an 18-position blank 
alphameric field (BLNK) is set up for the 
purpose (line 32) . (See explanation below: 
Clearing an Alphameric Fie ld. ) 

Unnecessary print cycles can be 
prevented, as shown in Part II, when there 
are less than four fields, because the 
indicator-setting operations in lines 20, 
22, 24, and 26 were so designed that the 
indicator (85, 86, 87, or 88) on at output 
time represents the number of fields in the 
card, the other three indicators being off. 
Forms advance after the last 
name-and-address line should then be 
specified as Skip/Before in the first 
output line that follows, because of 
variable execution of preceding lines. (If 
unnecessary print cycles are suppressed, as 
shown in Part II, Blank-After need not be 



specified and the conditioning indicators 
in cols. 10-11 of lines 21, 23, 25, and 27 
are not reguired.) 

Not e: The technigue can also be adapted to 
translating certain characters in a field 
to others. 

Calculations-Orient e d Pointers 

Clearing an Alphameric Field 

Problem: It may be necessary to clear 
(i.e., blank) an alphameric field by a 
method other than a Blank-After instruction 
in the output specifications. 

Solution I — field no larger than eight 
positions: Specify an alphameric literal 
of "blank" in Factor 2, and MOVE this 
literal to the pertinent field (specified 
as Result Field) . 

Solution- II— field larger than eight 
positions: With the RLABL 
pseudo-operation, define a new alphameric 
field of the desired length; the field will 
be blank. MOVE this field to the relevant 
field to be blanked (specified as Result 
Field in the MOVE operation) . 

Figure E4 — Part I illustrates the 
method — see lines 32 and 28. (Note that 
RLABL field names must not exceed four 
characters.) 
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Fiqure E5. Total-Time Calculations Eased on Type of Last Preceding Card 



Card-Type Resulting Indicator During 
Total-Time Calculations 



Durinq detail-time calculations, the status 
of card-type Eesultinq Indicators reflects 
the card type being processed. Durinq 
total time, the indicator for the next 
card — whese data is not yet available to 
EPG--is en, and that representing the just 
processed card is off (unless both cards 
are of the same type) ; thus, total-time 
calculations can very easily be based en 
the type of card that follows (LO can be 

-sp-ee i-f ie d in- -e-eis -v -7—8 i f- - -ne ne- of- - the- 

indicators L1-T9 are desired as a 
condition) . 

P rob lem: Calculations at total time are to 
be conditioned by the type of the last 
preceding card. 



Fiqure E5 shows a simple solution. We 
have assumed that the criterion card type 
was assigned indicator 10 in the input 
specifications . 



Explanation: An indicator (say, 20) is 
SETCN at any point during detail-time 
calculations, when the particular card type 
(indicator 10) is being processed. That 
indicator is then used at total time in 
conjunction with any L-indicator (Lx = 
L0-I9, as desired) . It must be SET0F 
aqain, either by the end qf total time, or 

duri-ftq d-et-aii-triffle feef- ere it—is— SETG-tf— en 

the basis of indicator I0--otherwise it 
would remain on even when card type 10 did 
not precede total time. If SETCF during 
total time, 10 must be in cols. 7-8, 
because other L indicators may not be on 
for every program cycle. 
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Fiaure E6. AND and CR lines in Calculation Specifications 



AND and CR Lines in Calculation 
Specifications 

Figure E6--Part I presents a technigue for 
conditioning a calculation by more than 
three indicators in an AND relationship. 
Part TI of Figure E6 shows three 
alternatives for establishing CR 
relationships. 

Explanations: The illustrations are 
largely self-explanatory. It is important 
to remember that (with certain exceptions, 
like L-indicatcrs) indicators that are 
SETON remain on unless turned off by SFTOF 
or as Resulting or Field Indicator. 

Part I: When three indicator conditions 
are satisfied, a fourth is SETCN. This is 
then used in conjunction with further 
indicators to condition execution of ether 



s n ecif icat ions * Each additional "AND" 
line, using this approach, permits adding 
two more indicators to the AND 
relationship. 



Part 11(a) : The same spcif ications are 
executed when the indicator conditions in 
either line are satisfied. 



Part 11(b) : The same indicator (90) is 
SETCN when the indicator conditions in 
either line are satisfied. Execution of 
the calculation operations is then based on 
the status of that indicator (90) . 



Part II (c) : The program branches to the 
same routine when the indicator conditions 
in either line are satisfied. 
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Figure E7. Distinguishing 12-, 11-, 0-, No-Zone, and t in Input Fields 



Distinguishing Zone Punches in Input Fields 

Problem: Alphabetic codes are sometimes 
structured sc that the so-called 
unit-reccrd zone punches (12 = A-I, 11 = 
J-E, = S-Z) represent groups. TESTZ 
provides for convenient determination of 
12- and 11-punches in the high-order or 
sole position of alphameric fields; tut it 
does not distinguish between and the 
remaining (net 12- or 11-) zene punches 
(i.e., it lumps all hexadecimal codes ether 
than 50, C, 60, cr D as "nc zone"). 

Figure E7 shows hew to test a 
single-pcsition alphameric input field 
(na-med ■■€-€• E-Et for t2-zon-e>- H-zene, 0-zcne , 
no zene punch (digits 0-9), or blank. We 



have made the assumption that the code 
consists only of A-Z, 0-9, and blank. The 
COMP-operaticn technigue can, of course, be 
applied to identifying characters within 
any EECDIC range (for example, all of 
hexadecimal zone E) . 



Exp lanatio n : Indicator 12 will be on for 
A-I (or any character with hexadecimal 50 
or zone C) ; indicator 11 is on for J-R (or 
any character with hexadecimal 60 or zone 
D) ; indicator 10 is on for letters S-Z; and 
indicator 99 is on when the column is 
blank. No zone (i.e., digits 0-9) is 
represented by 90 N10 N99. 
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Figure E8. Absolute Compare, Sign Reversal, and Sign Removal 



Absolute Numeric Compare — Including 
Illustration of Sign Reversal and Sign 
Removal 

Problem: A Compare (CCMF) operation for 
numeric fields is always algebraic; i.e., 
the sign in the low-order position of the 
field is taken into consideration. For 
example: -8 is smaller than (+) 1. 



P-j/tn 



~ .-. -r- ^ XT O . 



LCCC11LC O. UIC UIILU J_WJ_ 



comparing the absolute value (ignoring the 
sign) in a field to a constant, without 
changing the sign in the original field 
itself. Two of several alternate 
techniques are shown in Parts II and 
III--this time on the assumption that the 
siqn in the field need net te preserved. 

Assum_pticnsj_ FIELD 1, FIELE2, and FIEID3 
represent numeric data fields; CCMFLD is a 
new field created so as net to disturt the 
sign in a data field. 

Ix£lanaticns_^ Part I: As the data field 
(FIELD1) is transferred to a work field 
(CCMFLD) , it is tested for sign. If 
negative, the sign is reversed, so that 
comparison is always with a positive value, 

The second line, incidentally, 
illustrates the simplest method for 
reversing the sign in a field. 

Part II: The zone of the digit 5 
(hexadecimal zone F — see EECDIC 
table) — equivalent tc "no sign"--replaces 



any other zone in the low-order position of 
FIELD3. Any ether character in the 
EBCDIC-table column labelled F would do as 
well as a 5. 

This illustrates a simple technigue for 
removing a sign. (See also Figure E19 for 
removal of only a plus sign.) 

Part III: The first line is assumed to 

J_ C ^J_ *rO Cll U Clljjf 11 \J J- ill Cl J. Ol L _l_ U 11 111 C U J-K* VJpCLa LJ.VJ11 S 

Advantage is taken of an operation that has 
to be performed anyway to ascertain the 
sign in the pertinent field. If negative, 
the sign is reversed by the Z-SUB 
operation. 

The examples in Parts II and III sacrifice 
the original sign in the field. 

In all three examples, the literal could 
have been specified simply as 1250 instead 
of a 1250.00. However, the format employed 
minimizes the core requirements for the 
operation ty obviating decimal alignment 
(see Storage Reg uirements, Appendix A and 
Tips cp Bi n imiz in g Core-Storage 
Reguire ments , in this appendix) . 



Arithmetic Cverflow 

Probl em; During object-program execution, 
no indication is given when an arithmetic 
result exceeds the capacity of the Result 
Field: the excess high-order positions are 
lost. 
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Figure E9. Testing for Arithmetic Overflow 



Figure E9 illustrates a method for 
recognizing such cases, when the 
Result-Field length is less than 15 
positions. 

Expla nat ion: A work field (AOWORK = arith- 
metic overflew work field) is set up* long 
enough to accommodate the largest result 
that could cccur in any arithmetic opera- 
tion that is to be checked for overflow and 
larger than the fields ultimately destined 
to receive the results of the pertinent 
operations. The same work field can be 
used each time, provided the number of 
decimal places rregtrired is Uniterm. Two 
operations employing the same work field 
are shown in Figure E9 . ( NH 1 is a condi- 
tioning indicator in the second example; 
otherwise, a correct secend result wculd 
turn off H1 even if the first result 
overflowed .) 

The result of the arithmetic operation 
is moved, right-aligned, tc the ultimate 
Result Field (PRODCT or FINAL) , and then 
subtracted back into the wcrk field. If 
the result of this operation is not zero, 
overflow has occurred. 

The wcrk field must be large enough to 
contain a significant digit in the overflow 
portion (the excess length, to the left, 
beyond the ultimate result fields) , even 
when part of the overflow portion could 



contain zero— for example: initial result 
of operation = 10045678. If the ultimate 
result field contains (say) six positions, 
overflow will not be detected unless the 
work field (containing the initial result) 
allows for at least eight pesitions-- 
because the result happens to be in the 
seventh position. 

Function Table Containing Several Functions 
per Field 

Probl em: In a table look-up operation, it 
is sometimes desired tc lecate more than 
os-e f-ufi-eti-en per argument-, 

Solut ion : Place the several functions for 
one argument next to each other so as to 
form cne continuous field. In the file 
extension specifications and the LCKUP 
operation, treat the multiple function 
fields as a single field of a size that 
exactly accommodates the several functions. 
After the ICKUP operation, separate the 
individual functions by MOVE and M0VEL 
operations. 



Note : If the functions are numeric, all 
subfunctiens for one function field should 
have the same siqn — which should only be 
punched in the table-input cards in the 
low-order position of the rightmost 
subf ield . 
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Figure E10. Multiple Functions frcm a Single LOKUP Operation 



Figure ElO--Part I illustrates the 
specifications tc handle three functions 
for one argument, and Part II graphically 
portrays the Move operations. 

Assumptions: 15-pcsition function field, 
defined appropriately (and, in this 
example, as alphameric) in the file- 
extension specifications. It consists of 
three functions—from left to right: 
FUNC#1 (4 positions), FUNC#2 (6 positions), 
and FUNC#3 (5 positicns) . 



Converting Units to Dozens 

Problem: Input quantities are expressed in 
units; but output is to be expressed in 
dozens, and units less than a dozen. 

Figure Ell shows two simple conversion 
routines. 

As sumpt ions: UNITS field has been defined 
elsewhere, as numeric with. Decimal 
Positions. 
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Figure E12. Sguare Boot 



Explanation — Option I: As long as 12 can 
te subtracted frcra UNITS without the con- 
tents of the field UNITS turning negative, 
1 is added tc DOZENS. The routine is 
repeated as long as the contents of UNITS 
is greater than zero after 12 has been sub- 
tracted. The last specifications line pro- 
vides for restoring the UNITS value to what 
it was before subtraction of 12 caused it 
to- - ± urn rrega ti ve- -. 



Note: Indicator 92 (second and fourth 
lines) may te removed: this saves seme 
core-storage space, but causes the program 
to execute one extra circuit through the 
loop whenever UNITS happens to be an 
integral multiple of 12. 



E xp lanation—Opt ion II : Then 
units is divided by 12 and the 
stored in a new field named EO 
there are no decinal positions 
divisor, or quotient, the rema 
an integer. The remainder is 
UNITS by the MVE operation, wh 
sets UNITS tc zero; thus, exce 
beyond the two-digit size cf t 
are zero, and no lenger ccntai 
al UNITS value. (Alternativel 
field can be assigned for the 
than a dozen, if it is desired 
the oriqinal total units.) 



umber cf 

result is 
ZENS. Since 

in dividend, 
inder also is 
moved to 
ich first 
ss positions 
he remainder 
n the crigin- 
y, a new 
units less 
to preserve 



Square Root 

Figure E12 presents one of several simple 
RPG routines for calculating a square root. 
The Newton-Raphson successive-approximation 
formula is applied: 

Vs~ = R i+1 = .5^ + RjY where 

Ri = successive approximations of square 

root, and 
S = the square (radicand) of which the 

square root is to be extracted. 



Ass umpt ions: Radicand (SQUARE) < 14 posi- 
tions, with decimal places. As the 
example is designed, a 7-position sguare 
root is calculated; 8 positions are allowed 
for intermediate values (field SQROOT) , but 
the high-order position will always be zero 
in the final result. 

The user may change the sizes of the 
SQUARE and SQROOT fields, and may introduce 
decimal places into the radicand — provided 
he maintains the proper mathematical and 
EPG relationships for sizes and decimal 
places in all the pertinent fields. 

Explanation of , Figu re E12: Relating the 
calculation specifications to the formula 
should clarify the operation, with these 
additional cemments-- 
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An extra positics 
assigned to the quotient (fourth line- 
WRKFID) for greater accuracy; it is 
then half-adjusted and dropped after 
the last calculation in the loop (the 
sixth line) . 



2. The routine is repeated until twc suc- 
cessive half-adjusted results are 
identical (see seventh and eigth lines, 
and indicator 90) . Tc permit the com- 
parison of succesive results, the eld 
result is stored at CLEECO (see third 
line) . 



3. An arbitrary initial value (3000000 — 
first line) has been used for the first 
apprcximation. Optimally, to minimize 
the number iterations, the initial 
value shculd be of the same order cf 
magnitude as the ultimate sguare rcot. 
If the magnitude of the radicands is 
fairly hemegeneous, the user should 
substitute another, mere appropriate, 
first-approximation value. 



If sguare roots are to be extracted 
for values in a substantial number of 
cards, the following is a good techni- 
que for minimizing the number of itera- 
tions, if ether aspects of the job do 
not preclude it: 



Output-Oriented Pointers 



Repetitive Output 



Pr oblem: it is sometimes desired to repeat 
the same output (forms printing or card 
punching) a fixed or variable number of 
times. One common application is the 
printing of shipping labels. 



Figure E13 presents a method for print- 
ing the same name and address a number of 
times from a single input card. 



Assumptions : 

1. The Name-and-Address cards include a 
field (NUMBER) which contains the num- 
ber of times the data is to be printed. 



2. The data from each card is to be 

printed at least once, and not more 
than nine times. * (If more than nine 
times must be allowed for, simply 
increase the size of the fields NUMBER 
and CONTRL.) 



3. Input consists cf a single file com- 
posed solely of Name-and-Address cards 



Cn a sorter, sort the data-card 
deck into sequence cn the radicand 
field — at least cn the first few 
high-order positions. Initialize 
SQEOCT with an arbitrary value (see 
first line) only fcr the first 
card; for subsequent cards, always 
enter the routine at SQRRTN. This 
uses the sguare root from the pre- 
ceding card as the first approxima- 
tion. Since the radicand values 
are in seguence, the previous 
sguare root will be relatively 
close to the one fcr the new radi- 
cand value, and convergence will be 
rapid. 



4. No calculation specifications are 

required, except those that control the 
output iterations. 



Note : If the user's application does not 
conform to the restrictions in items 3 and 
4, above, he must make suitable modifica- 
tions in the assignment and use of indica- 
tors. Caution will be required: the user 
must bear in mind that (1) in this example, 
the last output per input card occurs after 
the next card has been read, and the new 
card-type Resulting Indicator is on and (2) 
whenever (in each loop) the program 
advances from total-time output to detail- 
time calculations, it also passes through 
overflow output time — thus, if other opera- 
tions in the job utilize the OF indicator, 
they will occur in each pass through the 
loop. 
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11 be a helpful reference) : 
ulting Indicator is needed 
cificaticns, because there 

type. Output need net be 
n indicator, because (1) it 

(T in ccl. 15) ; there- 
s output occurs at detail 
first card has been read 
2) the data is tc be 
ogram cycle, except at the 

data frcm the first card 
e for output — and, at that 
cycle) . total time is 
program. 



The first line of the calculation speci- 
fications provides for a new field (CCNTRL) 
to which the contents of NUMBEE are trans- 
ferred. This is done only the first time 
the program passes through detail-time cal- 
culations on each card (when indicator 90 
is off) . It is necessary fcecause, each 
time befcre detail calculations are 
repeated for the same card, the program 
again transfers the input data tc the pro- 
cess area: thus, the same data frcm ccl. 
1 is repeatedly placed into the location 
for the field NUMBER. Tc control the num- 
ber cf iterations, a separate field is 
therefore needed. 

In each pass through detail calcula- 
tions, 1 is subtracted (second line) frcm 
the controlling number. As long as the 
result is greater than zero (indicator 90 



line) to total-time calculation. When the 
contents of CQNTRL are no lonqer greater 
than zero, the program follows its normal 
sequence: detail time is followed by the 
reading of a new card, which is in turn 
followed by total-time calculation and 
output. 



It will 
off when t 
less than 
time has b 
read, tota 
follow. T 
is based o 
card, beca 
transf erre 
prior to d 
cycle supp 
for each c 
created af 
read — who 
the first 
cycle — bee 
the beginn 
ever, when 
total time 
executed. 



be noted th 
he data has 
desired. Ho 
een complete 
1-time calcu 
he total-tim 
n the data f 
use the new 
d to the pro 
etail time: 
lies the dat 
ard. No spu 
ter the firs 
se data is n 
total-time o 
ause total t 
ing cf progr 

branching f 
, total-time 



at indicator 90 turns 
been printed once 
wever, after detail 
d, and the next card 
lations and output 
e output at that time 
rom the previous 
input data is not 
cess area until just 

thus, this output 
a for the last time 
rious output is 
t card has been 
ot yet available at 
utput of that program 
ime is bypassed at 
am execution; how- 
rom detail time to 

operations are 



Not e : During program generation, a cau- 
tionary message — "GCTO and TAG are not in 
the same calculation time" — will be 
printed. Since the branching from detail 
time to total time is intentional, the mes- 
sage should be ignored. 
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Figure E14. Page Totals 



Page Totals 

Pro blem: Sometimes it is desired to list 
values and — when the forms-overflow point 
(channel 12) is reached--to print a total 
of the listed values at the tottcm of the 
page before forms advance to the next page, 
although a control break may not have 
occurred . 

Figure E14 presents two solutions: only 
the calculation specifications differ 
between the two. Option I cumulates the 
individual values directly intc the three 



total fields (page total, control group 
total, and final total) , whereas Option II 
employs total transfer from one total to 
the next higher. Option II uses more 
instructions and core-storaqe space, but 
minimizes the amount of calculation time. 

As sumptions for this example: 

1. The contents of an input field named 
VALUE are to be listed at detail time. 

2. Totals of VALUE are desired at the bot- 
tom cf each page, at the end of each 
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L-CflC J.OJ. - Lt; Vex - i yj_0u£., cuiu a l <_i~i« tiiu 

cf the report. 

3. Carriage tape channel 4 serves for the 
paqe-total location. 

4. When there is a control break, a page 
total is to he forced, followed fcy the 
Ccntrcl-Ievel total. 

Exp lanations for Fig ur e E14 — calculation 
specifications: Option I shows straight- 
forward addition of the individual values 
to the three totals: Option IT accomplishes 
the same by total transfer to progressively 
higher-level totals. Noteworthy in Cption 

1. The second line provides for 
transfer — at total time — of the page 
total (PGETOT) to the Control-Level 
total (CTRGRP) , provided the overflow 
point had been reached (OF on) during 
the preceding detail-time printing. 

2. The third line accomplishes the same as 
the second whenever a control break 
occurs at a point on the page ether 
than the overflow point. This is 
necessary so that the ccntrcl-grcup 
total includes the values from a page 
that is only partially filled (OF not 
en) when a control break occurs. 

Output-format specifications: The first 
two lines specify printing at detail time 
for each card, except that output is sup- 



been read. 

The third, fourth, and fifth lines pro- 
vide for the printing cf page totals, 
clearing the page total (B in col. 39) 
each time in anticipation of accumulation 
for the next page. When the overflow point 
coincides with a control break, the output 
must te performed at total-output time — not 
at overflow-output time; otherwise, the 
page total would be printed under the 
control-group total (see next two specifi- 
cations lines) . and not at all if LR is 
on — because overflow-time occurs later than 
total-cutput time. NL 1 is specified with 
0? in Output Indicators so that the output 
does not occur at overflow time, but at 
total-output time (L1 in CE line). Also, 
if a ccntrcl break has occurred, the form 
should net be advanced to a new page until 
the control-group total has also been 
printed en the old page: therefore, the 
different forms-control specifications in 
the main and OR lines. 

The sixth and seventh lines provide for 
the ccntrcl-group total beneath the page 
total, and for clearing of the control- 
group field so that the next group's total 
can be accumulated. The form is advanced 
to the top of a new page after printing of 
a group total. 

The last two lines contain normal speci- 
fications for printing the grand total. 
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Figure E15. Delayed Forms Overflow 



Delayed Forms Overflow 

Prob lem: Forms overflow normally occurs 
after total-output time in the same program 
cycle in which the overflow point was 
reached. However, with small control 
groups, it may be desired always to com- 
plete the listing of cards of one group on 
the same page. 

Figure E15 presents two techniques for 
delayina forms overflow until a control 



break has occurred at or beyond a carriage- 
tape channel- 12 punch. Option I is based 
on a single channel-12 punch. Option II is 
based on succesive punches in channel 12 
from the earliest desired overflow point 
through the last possible point — assuming 
that a group total might have been printed 
three lines above the first channel-12 
punch . 
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As sumptions : 

1. One cr more fields are listed at detail 
time . 



2. A grcup total is to be printed at total 
time at the end cf each control grcup — 
Control Level L1 has been assigned to 
some control field in the input 
specifications. 

3. Forms overflew is desired only after a 
ccntrcl-group total (i.e., a group is 
not tc be s n lit between two naoesi — 
and enly provided a punch in channel 12 
has been sensed. 

4. The (first) channel- 12 punch is high 
enough to allow space en the same page 
for printing the largest possible con- 
trol group (+ 4 lines, because of the 
specific Space/Before and Space/After 
instructions in this example) . 

5. For Cption II, channel 12 is punched 
for every line from the first overflow 
line (as explained in 4, above) through 
the last possible print line on the 
page. 

6. Channel-1 punch represents the top cf a 
page. 



Exp lanatio ns fo r Opticn I: The first line 
in the calculation specifications presents 
the normal manner cf summing an amount 
field for contrcl-grcup total; in addition, 
an indicator (90) is turned on whenever the 
total field (SUMANY) is zero (90 is used in 
the output specifications) . The secend 
line causes an indicator (99) to be set on 
at detail-calculation time, if the overflow 
indicator turned en after the preceding 
detail-time or total-time output — 99 serves 
to "remember" that the overflow point has 
been passed. The third line causes 99 to 
be turned off during detail-time calcula- 
tions for the first card cf a control group 
because, if the overflow point had been 
reached before or during the preceding 
total-output time, the form was advanced to 
a new page (see output) . 

The first two lines of the cutput-f ormat 
specifications take care of normal detail 
printing; lines 03-05 control the output of 
the L1 grcup total (preceded by an extra 
space), and forms overflow, as follows: 

1. line 03 causes printing at total time 
if channel 12 had not been passed dur- 
ing detail-time output — in the same 
(indicator OF) cr a previous (indicator 
99) program cycle. The form is 
advanced 3 spaces--but not tc a new 
page — after the total is printed. 



2. Line 04 causes printing at total time — 
followed by forms advance to the next 
page — if the overflow point had been 
passed during a previous program cycle 
(indicator 99) . 

3. Line 05 provides for printing at 
overflow-output time — followed by forms 
advance to the next page (forms control 
from the previous specifications line 
applies) — if the overflow point was 
passed during detail-time or total-time 
output of the same program cycle (indi- 
cator OF) . 

This takes care of the situation 
where OF turned on after listing of the 
last card of the group. 

It is also possible that OF turned 
on enly as a result of printing the 
group total on the basis of the speci- 
fications in line 03 — the output is 
then performed twice: first at total- 
output time (per line 03) , and again at 
cverf lew-cutput time (per line 05) . In 
such case, the second output to the 
file must be performed, in order to get 
t~he forms advance to channel 1. How- 
ever, as the field SUMANY is trans- 
ferred to the output-storage area, it 
is reset tc zeros (B in col. 39) : 
this turns on indicator 90 (see first 
line of calculation specifications) , 
and output from the field is suppressed 
(N90) . (Note that this method assumes 
that the L1-level data total cannot be 
zero. If Zero Suppress, or an edit 
word that does not preserve .00 for an 
all-zero field, were used, output for 
the field need not be suppressed since 
nothing would then be printed when the 
field contents are zero — see Option 
II.) 

Explanations for Option II: The calcula- 
tion specifications consist only of the 
normal entries for summing an amount field. 
The first two lines (lines 08 and 09) of 
the output-format specifications take care 
of normal detail printing. Lines 10 and 11 
control the output of the L1 group total 
(preceded by an extra space) , and forms 
overflew, as follows: 

1. Line 10 causes printing at total time 
if a channel-12 punch has not been pre- 
viously sensed. The form is advanced 3 
spaces — but not to a new page--after 
the total is printed. 

2. Line 11 provides fcr printing at over- 
flow output time — followed by forms 
advance to the next page--if a channel- 
12 punch was passed during output in 
the same program cycle. Since channel 
12 is repeatedly punched, the initial 
overflow point could have been passed 
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in a prior cycle when there was no con- 
trol hreak. 



Overflow Forms Advance Before Totals 
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Probl em: Normally, totals are printed on 
the same paqe as the last detail data, even 
if the overflow point (channel- 12 punch) 
was passed during detail-time output of 
that program cycle. This is so because 
overflow time, or automatic forms advance 
to channel 1, occurs after total-time 
output. 



Figure E16 shows how to advance the form 
to the next page before the printing of 
totals, if the overflow point was passed 
during detail-time output in the same pro- 
gram cycle. 
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Figure E16. Forms Overflew Before Totals 



29^ System/360 Model 20 CFS Report Program Generator 



Ex p J. a ilat. J. pa to S u U t (j'u l tojJt;^ij.iCaLXOns in 
lines 01-03 are normal for detail printing 
when there is only one card type* 

If overflow was signalled at detail- 
output time, indicator 95 is SETCN at 
total-calculation time — provided there is 
also an T. 1 control break. (95 is SETOF 
each detail-calculation time sc as net to 
affect output in subsequent cycles.) 

Output-specifications line 04 provides 
for total-time output when there is a con- 
trol break (LI on) - tut the overflew pcint 
had not teen passed during detail-time out- 
put (95 is off) . The form is advanced 3 
spaces after the total is printed. 

Line C5 provides for total-time output 
when both a control break and an overflew 
signal have occurred — the enly condition 
under which indicator 95 is en. This cut- 
put is preceded by forms skipping (0 1 in 
cols. 19-20): thus, a total that was pre- 
ceded by an overflow signal at detail- 
cutput time is printed on the next page. 

Line 06 provides for output — preceded by 
forms skipping tc the next page, but 
without any forms movement after output — to 
cover these situations: 

1. Overflow is signalled at detail-cutput 
time, but no ccntrcl break follows; or 



-<- /->-p-p 



because it was set off) , if the output con- 
ditions in line 04 or 05 are met. Fowever, 
output from the field is always suppressed 
when the specifications in line 06 are 
executed: the overflow indicator is always 
turned on by the program itself before 
overflow-output time, if overflow was sig- 
nalled during the preceding detail- or 
total-time output--and this supersedes any 
setting by a prior calculation instruction. 
(See C F, OV , under Indicato rs , in the 
chapter Programming For EE G--General 
IH f 9.LM a bi c_ru ) 



Single-Card Total Elimination 

Problem: It is often desired not to print 
the lowest-level total when it would be 
identical with the guantity or amount 
listed immediately above it, because the 
control group consisted of a single card. 

Fiqure F17 presents two methods for 
accomplishing this. Option I does not, 
howevet, save the actual total-print opera- 
tion; whereas Option II dees net gc through 
the total-print operation at all for a 
single-card group. While not shown, the 
techniques can also be adapted to elimina- 
tion of higher-level (say, L2) totals that 
consist of a single lower-level (say, L1) 
group. 



2. Overflow is signalled as the 11 total 
is printed at tctal-cutput time on the 
eld page (see line 04) . 

Specifying forms skipping at cverflcw- 
output time under these two conditions is 
necessary because automatic overflew fcrms 
skipping — which takes place when OF dees 
not appear in any file-identification 
line — must be prevented. Otherwise — after 
the output specified by line 05 has taken 
place en a new paqe (see Skip/Before in 
line 05) — the form is again automatically 
skipped at overflow time, because the over- 
flow indicator is then still on. 

When output is performed at overflow 
time as a result of the execution of the 
specif icatiens in line 06, output from the 
data fields must be suppressed — because 
either (1) no control break has occurred, 
or (2) the total was already printed (by 
specs. in line 04 or C5) . To accomplish 
this, output from the f ield (s) is condi- 
tioned by NOF (see line 07). During each 
total-time calculation, OF is SETOF (see 
third calc. spec. line) . This permits 
the output from the field to take place at 



A s s u mp: t i on s : 

1. An asterisk is to be printed next to 
the total; when the total is suppressed 
for a single-card group, the asterisk 
is to be printed next to the listed 
value. 

2. When the total is eliminated, the same 
extra spaces as after a total should 
appear after the single item line. 

Gen e ral „e xp Ian a tio n: The earliest point at 
which it is known whether a group consists 
of only a single card is at total time fol- 
lowing the last card's detail time. The 
calculation and output specifications are 
based on this fact. 

Explanation — Option I: Normal listing at 
detail time. Space/Before must be used 
because, when the group consists of a 
single card, the total identifying 
asterisk — printed at total time — must be 
printed next to the listed item: there- 
fore, there must be no fcrms movement until 
total-time output or the next detail time. 
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If tnere is a controj. creaK (I i on) , 
output is also performed at total time. 
The total-identifying asterisk is then 
printed; but the contents of the total 
field (SOME) are printed only if the group 
consisted of mere than one card (N82) — 
otherwise, the output frcm FIDB and SUPB 
would be identical. 

If the group consists of more than cne 
card (N82) — i.e., SOMB wil be printed — the 
form is spaced before the total is printed 

(otherwise, SUMB data overprints FIDE 
data) f and after; for a single-card group 

(82 on) , it is advanced only after print- 
ing, so that the asterisk fcr total identi- 
fication appears next to the FIDB data. 

The calculation specifications are rou- 
tine, except 

1. Indicator 82 is turned en at total time 
(line 09) when there is a control break 
(11 in cols. 7-8) — provided there was 
also a. ccntrcl break en the previous 
card (81 on). (11 on at detail time 
turns on 81--line 02.) 

Indicators 81 and 82 are set off 
(line 01) before these criteria are 
tested . 

2. Because SUMB is not printed for single- 
card groups (see N82 in line 06, out- 
put) , Blank-After cannot be used in the 
output specif icatiens to clear the 
field. Therefore, it is cleared tc 
zero in the calculations specifications 
(line 03) at the beginning of each con- 
trol group, before the FIDB data from 
the first card of the group is added 
in. 

Explanation—Optio n II: 3ecause it is 
known by total, time whether the last card 
represented a single-card group, it is pos- 
sible to avoid the output operation fcr the 
total sum altogether for single-card groups 
if the listed output from card fields is 
also performed at total time (the data from 
the last card is then still available) . 
The secend output (line 15) is net per- 
formed at all unless the group contained 
more than cne card (N82) . 

Fcr multiple-card groups (N82) , FIDB is 
printed (line 12) from each card, and SUMB 
is printed (see lines 15 and 16) beneath 
the last FIDE value. For single-card 



qrOUpti, tlDc its tiUp l-J-stitjeu (jncz, line izj , 

and SUMB (82, line 13) is substituted at 
the same point in the cycle; the second 
output (lines 15-17) is net performed. 

FIEB and SUMB contain the same value for 
single-card groups; but this approach per- 
mits use of Blank- After (B in col. 39) to 
reset SUMB , since SUMB is always printed — 
either via line 13 or line 16. 

The asterisk is printed next to SUME for 
either multiple- or single-card groups 
(line 14 or 17) . 

The spacing instructions in the OR line 
(line 10) and in the second output file- 
identification line (line 15) provide for a 
uniform extra space before the first card 
of a new group, regardless of whether it 
follows a multiple- or single-card group. 

Because Blank-After can be used in 
Option II, line 03 in the calculation 
specifications is not needed. 



Note : At total time, the card type Result- 
ing Indicator for the new card is already 
on. Thus , if the operation in Option II 
differs for various card types — and the 
user therefore assigns card-type indicators 
in Output Indicators and in calculation 
Indicators — he must be careful to preserve 
appropriate card identification (by setting 
indicators at detail time in the calcula- 
tion specifications to reflect the per- 
tinent card type at total time) . 



Eliminating Excess Control Breaks (Major- 
Minor Ccntrcl) 

Problem: If a deck of cards consists of 
detail cards with two control fields 
(assigned level 11 and L2) — but each 12- 
level group is preceded by a single card of 
another type (say, to print a heading) 
which contains only the 12 control field — 
then a spurious 11 control break may occur 
between the I2-level heading card and the 
first detail card that follows. This 
wastes printer time, causes spacing as spe- 
cified for 11 output and — if all leading 
zeros are net suppressed — causes printing 
of some zeros and (possibly) symbols 
(depending on the edit word — see edit word 
in output specifications for L1 total in 
Figure E18) . 
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Figure E18. Eliminating Excess Control Breaks 



Figure E18 shows how to eliminate the 
false control break. 



A ssum ptions : 

1. Master cards are assigned card-type 
Eesultinq Indicator 01; details, indi- 
cator 02. 

2. 12 control is assiqned to toth card 
types; L1 only to details. 

Explanation : The output-format specifica- 
tions are normal ones for the situation 
described. 



The second calculation specification 
sets en an indicator (50) at total time if 
an L2 break has occurred — but only provided 
the new card is a heading master (to guard 
against a missing master and cards out of 
order) . Next program cycle (at total 
time) , when the first detail card following 
the master may have caused an LI control 
break, L 1 is turned off. 50 is also turned 
off, so that subsequent minor control 
breaks remain valid . Since L 1 has been 
turned off before total-time output, the L1 
output (GBPTCT) is not- performed following 
a master header card. 
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Figure E19. Preventing 12-0verpunch 



Preventing 12-0verpunch 

Prob lem : When punching into a card from a 
non-negative numeric field that was read in 
with a 12-overpunch in the low-order posi- 
tion, or to which Field Indicators were 
assigned in the Input Specifications, or 
which served as Result Field in an arith- 
metic operation, a 12-punch will be punched 
over the digit in the low-order position if 
no specifications are provided to prevent 
this. (See Zone Elimination, under Rules 
for Forming Edit Wor ds, for a full list of 
situations that cause a field to become 
zoned) . 

Zero Suppress (Z in col. 38) of the 
output-format specifications eliminates the 
12-overpunch; but it also eliminates any 
11-overpunch (minus) and leading zeros, 
which is usually not acceptable in a card. 
An edit word, too, removes the 12- 
overpunch; but it also eliminates at least 
one leading zero, and reguires an addition- 
al card column for the 11-punch for a minus 
sign. 

Figure E19 presents a technigue for 
removing the 12-overpunch without eliminat- 



ing a possible 1 1-overpunch or any leading 
zeros. 



Ex planatio n: The sign of the pertinent 
field (AMOUNT) is ascertained; if it is not 
negative, an F-zone (tantamount to a "no- 
zone") is moved to its low^order position 
(instead of an 8, any other character in 
EBCDIC column F could also be used) . This 
removes the 12-zone placed there by the 
program if the result was positive or zero. 
The example shows use of the cheapest 
operation (Z-ADD) — in terms of core usage — 
to test the sign (of course, this extra 
operation can be obviated by assigning an 
indicator to Minus, or to Plus and Zero, 
the last time the field serves as Result 
Field in an arithmetic operation that is 
reguired anyway as part of the 
application) . 



Punch output is assumed to be without 
Zero Suppress or edit word. 



Not e: Figures 43 and E8 illustrate removal 
of 12- or 11-overpunch. 
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Figure E20. Editing Pointers 



Editing Pointers 



ProblemJ: An edit word is to be assigned 
for printout , (1) to prevent zoning of the 
low-order position, and/or (2) to insert 
characters (symbols) between digits, or to 
precede the amount with fixed $ symbol — but 
all leading zeros, and constants among 
them, are to be printed. 



Solution A : Increase the size of the field 
by one position. Place a zero in the 
extreme left position of the edit-word body 
so that, when the minimum of one leading 
zero is suppressed, a field of the correct 
size — retaining -all leading zeros for the 
original field size — is printed. 
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Of course, the size of the field in the 
cutput-stcrage area is then cne position 
larger than the original field would have 
teen, even though the high-order position 
is always blank. Care must be taken, 
therefore, to allow for the greater length 
in End Position in Output Becord, so as not 
to overlay two fields. Alternatively, if 
the extra (blank) position cannot be spared 
in the output record: Specify output for 
the artificially enlarged field ahead of 
specifications for the field that is tc 
appear tc its immediate left in the output 
record; the rightmost position of the 
later-specified output field is then over- 
laid over the excess blank leftmost posi- 
tion of the enlarged field — data is trans- 
ferred to the output area in the seguence 
in which output specifications occur 
(except for punch data always being trans- 
ferred ahead of card-print data for the 
same card) . 

Solu ti on B ; Split the field by MOVE and 
MOVEL operations, then treat it as several 
fields. Do not use an edit word. Treat 
symbols as constants. 

Figure E20 — Methods A and B — illustrates 
the two approaches. 



Assumptions : 

1. Field SCCSEC defined in input specifi- 
cations as nine digits long — contents 
are 095140036. 

2. Field AMOUNT defined in input specifi- 
cations as six digits long, including 
two decimal places — contents are 
C000C0. 



Problem 



Printinq a two-digit field 



(say, consisting of cents only) so that it 
is preceded by a decimal point when there 
are significant digits in the field, but 
eliminating the printout altogether when 
the field contains only zeros. E.g.: If 
field contents are 05 — print .05; if field 
contents are 00--leave output area blank. 

Solu tion : An edit word cannot be used, 
because a character (symbol) preceding the 
first digit is never printed (except for a 
fixed $ sign) , and because a leading zero 
would be replaced by blank. Therefore: 



S p t! ^ i j- y tue fxelu for output without an 
edit word; 



2. Specify a period (.) as a constant for 
the preceding print position; 

3. Suppress output of the field and the 
constant when the field contents are 
zero. 

Figure E20 — Part C — illustrates this 
approach. 

Assumption: The two-digit field CENTS was 
defined in the input specifications, or 
elsewhere in the calculation specifica- 
tions, as a numeric field. 



Comments on Part C 



The first calculation 



specifications line (Z-ADD, to test for 
zero is unnecessary if an indicator can be 
assigned tc Zero ( or to Plus and Minus) in 
Field Indicators, or in any other arithmet- 
ic operation using CENTS as Result. Field 
which may te reguired for the application 
(if the contents of CENTS are not changed 
thereafter, before output). 

The second calculation specification 
(MLIZO) is necessary because result fields 
of arithmetic operations (or, alternative- 
ly, fields used with Field Indicators in 
input specifications) are signed (hexade- 
cimal C or D) . The output is not to be 
edited; therefore, the eguivalent of the 
12-punch or 11-punch zone must te removed 
by calculation specifications. (If a minus 
or CE symbol is to be printed for a nega- 
tive amount, it can be assigned as a con- 
stant in the output specifications, and its 
output controlled by an indicator assigned 
to Minus in the calculation 
specifications.) 



Date en Same Print line as Constant Headinq 
Data 

Problem: Ihe date--read from a lead card — 
is to te printed on the same line as the 
report heading, which is specified as a 
constant. The date cannot be printed dur- 
ing the first detail-output time (1P time) 

— when constant report headinqs are usual- 
ly printed — because the Date lead card has 
not yet been read at that time. 
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Figure E2 1 presents two of several 
available solutions. 



Explanation of Op tion I: If the heading is 
to be printed after each ccntrcl break 
(say, Control Level 11) and at the top of 
each overflow page, report heading and date 
are simply specified as the first printed 
output at detail-output time for the first 
card of each control group and at overflow- 
output time. This takes care, too, of 
heading the first page (otherwise dene at 
1P time) , because Control-Level indicators 
are also on at detail time of the -very 
first card for which Control Levels are 
designated (see main text for special 
situation when ccntrol fields are zero or 
blank in first card) . 

Explanatio n of Opt ion II:- This method is 
independent of Ccntrol Levels--we have 
assumed that the form is net skipped to a 
fresh page after each contrcl break (or 
that there are no Control Levels assigned) . 

The report heading and date for the 
first page are printed as the only output 
at detail time during processing of the 
Date lead card; they are repeated at the 
top of each overflew page. 



Selecting the Last Card of Each Ccntrol 
Group 

The PLACE specification card in the PCU 
Collate Program offers the simplest method 
of selecting the last card of each ccntrol 
group, using the IBM 2560 MFCM attached to 
the Model 20; an IEM collatcr provides a 
simple method of accomplishing the same, 
offline, without tying up the Model 20 
System. 



If it is desired to select the last card 
of each contrcl group as an incidental to 
the RPG processing of a complete applica- 
tion with the Model 20, this can be 
achieved by branching to a Basic Assembler 
Language subroutine. 

Figure E22 illustrates the necessary 
program instructions. 



Assumpt ion : The B.A.L. program is 
assembled separately. 

Restrictions : 

1. The file must be in the MFCM. 

2. The file must be defined as a combined 
file. 

3. No stacker selection — not even to the 
normal stacker — may be designated in 
the input or output specifications for 
the relevant card type, 

4. The last card of each group must be 
directed to a non-normal stacker, with 
the others allowed to enter the normal 
stacker for the hopper involved. 

5. An output operation (punching and/or 
interpreting) must be performed for the 
card that is to be selected. (This 
could be merely the "punching" of a 
blank constant in col. 1.) 

6. Output (punching) must be at detail 
time. 

7. The pertinent field (s) must be punched 
into all cards of that type; i.e., it 
is not possible to punch only the last 
card cf the group. 
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Figure E22B. Selecting last Card of Each Control Group — Part II 



Comme nts on Fig ur e E22: In the calculation 
specifications, only line 04 is directly 
germane to the stacker-selection technique. 
However, to relate the example to a 
realistic problem, we have assumed that a 
detail field (FLDB) is to be summed (line 
03) , and the sum (SUMFLD) is to be punched. 



It 
card o 
punchi 
punche 
type, 
tive o 
it egu 
sents 
select 
group, 
stacke 
contai 



is not p 
f a cont 
ng into 
d into e 

The tot 
ne: in 
als FLDB 
the grou 
ing the 

a card 
r (say, 
ning the 



ossible to r 
rcl group in 
it only; the 
ach card of 
al punched i 
the first ca 
; in the las 
p total. By 
last card of 
deck is form 
stacker 2) v 
total of on 



ecogni 

time 
refOre 
the pe 
s thus 
rd of 
t card 
stack 
each 
ed in 
ith ea 
e cont 



ze t 
to c 

, su 

rtin 
a c 
the 
, it 
er- 
cont 
the 
ch c 
rol 



he last 
ontrol 
MFID is 
ent 

umula- 
group 
repre- 

rol 
select 
ard 
group. 



Blank-After cannot be used, because 
punching from SUMFLD occurs each detail 
time — not only at the end of a group. Line 
05 of the calculation specifications pro- 
vides for resetting SUMFLD at the end of 
each group. 



Note : The same principle may be applied to 
determine stacker selection for a card 
based on the type of card that follows it. 



Exit to the subroutine is then condi- 
tioned by the card-type Resulting Indicator 
for the new (following) card and that of 
the preceding card. The preceding card's 
type is "remembered" by setting an indica- 
tor (SETON) during its processing cycle, 
(rememb er to S ETCF t hat in d icator again at 
an app r opriate point)_. 
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Figure E23A. Stacker Selection of Input-File Cards Based on File-Matching and/or Calcu- 
lation Results — Schematic of Card-Type Input Hoppers and Destination 
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Stacker Selection of Input-File Cards Eased 
on Matching of Files and/or Calculation 
Results 



Assumption : The BAL routines are assembled 
separately before generation of the RPG 
object program. 
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Figure 123 presents a method, involving 
EAL subroutines, that accomplishes the 
desired stacker selection while maximizing 
throughput. 



Restric tions: 

1. The relevant file(s) must be in the 

MFCM. 



The relevant file or files must be 
defined as input files, and no punching 
can be~per formed" in xrards~~of-"~suctr 
file(s) . 



No document-printing is to be performed 
on cards in any file — net even in a 
different file from the one involved in 
the EAL stacker-selection subroutines. 



Note : It is permissible to designate 
stackers for some card types in a file in 
the input specifications and for other 
types ty BAL subroutine. 
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Summary Punching Match ing-Group Totals into 
Primary Trailer Cards 



Problem: usually, summary punching of 
tTotals for groups of matched primary and 
secondary (and, perhaps, also tertiary) 
cards is accomplished by first merging a 
blank card behind each secondary (or ter- 
tiary) group. (The application example 
Pre-Billing with Inve ntor y C ontrol , Figures 
63 to 69, utilizes this standard approach.) 
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Occasionally, it may be necessary to 
desiqn a job so that the blank card — into 
which data is to be punched at the end of 
each complete group — is merged behind the 
last card cf each primary group. However — 
as explained in the earlier section Match- 
ing o f Files — blank cards are always pro- 



cessed immediately after the previous card 
in the same file. It is, therefore, not 
possible to delay the processing of (i.e., 
punching into) a blank card in the primary 
file until secondary- (or tertiary-) file 
cards of the matching group have been 
processed. 
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aO-Lii x ion : hs a jjxaruc cam is ierq€u jjenirm 
each primary group, in preparation fcr the 
job, it is punched with the same Matching 
Fields data contained in the primary group. 
In addition, a constant (say, 1) is punched 
into all blank cards, in any cclumn that 
will net be needed. The extra cclumn is 
then used as the lewest (M1) matching 
field. The "blank" card then is always 
higher in sequence than the grcup to which 
it belongs, but lower than the next grcup, 
and is thus processed after the last card 
of the matching group. 

Summary-punching into the "blank" card 
is at total time when — although the 
"blanks" are unmatched (en Ml) — the ME 
indicator is still on from the last card of 
a matched group, but the new card-type 
indicator is already on. 

Restrictions : 

1. There must be a column in all cards 
(other than the "blank" card) that is 
always blank. 



(*ixi;emat ± ve±y , it may, instead or 
being blank, contain the same entry in 
all such cards if the value of that 
entry is lower — if ascending sequence 
applies — than the value of the constant 
punched into the blank cards. "Lower" 
refers to the applicable collating 
sequence: EBCDIC or user-altered 
collating seguence; if numeric is spe- 
cified for the field, only hexadecimal 
column F applies.) 

2. Not more than two Hatching-Fields 

levels (M2 and M3) can be needed for 
the job, so that M1 is available to 
control the movement of the "blank" 
cards. 



Note: If descending sequence applies, a 
blank column serves as M1 in the "blank" 
cards, and a uniform value higher than 
blank must be punched (or must already 
exist) in all ether cards. 

Fiaure E24 illustrates the problem. 
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• Figure E24A. Summary Punching Matchinq-Group Totals into Primary Trailer Cards — Part I 



Comments on Figure E24: The input specifi- 
cations re-emphasize (1) that the Matching 
Fields need not te in the same column in 
different card types and (2) that stacker 
selection — even to the normal stacker — 
shculd preferably be given in the input 
specifications for ccmbined-file card types 



for which no output operation is required, 
(The input-only file of transaction cards 
is directed to the normal stacker for the 
secondary hcpper without the need for a 
stacker-select specification.) 



310 System/360 Xodel 20 CFS Report Frcoram Generator 



IBM 



INTCtNATIONAl SUSINEIS MACHINES CCttfOtATICH 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Punching 


Graphic 
















PlNNh 

















-HI 



75 76 77 71 79 10 



Idwilificatioa 

















ill 


Record Identification Codes 


Field 


! Field Name 

S 


1 


if 

11 


1 

J 

i 




Field 




Starling 

Sign 
Position 


Um 

i 


Filename 


i 


i 


3 


Location 




•* Position 

I I. 

] 1 


t Position 
a f I< 


Position 
> I I o 
JO z u 1 


. J £ From 

III 


To 


Mm 


Minn 


lto 


1 




rn\ 


g 


■|T 


RYJ 


fill 


a(i ! !7# t 


*1"H"' 




I ! 


MM 


I S ' 


! I i ' 




! 


• 


~r 


' 




: ■ : 


* 












1 

1 






! j 




i ; 


! ! i 


BiO'lVS'M 




H3 












* 




■ 






; j 


• 


! ' ! 


1 ' i 




i 


\ : « 


■ i#< 


S STOCK* 




N2 












* 






1 ; i i 


1 


i "r ' ' 


! l 




i 


! ** 


8<HSECtfEi> 




Ml 








' 




e s 




1 


! ! I I ! 


i 








l ' 




1 i : 
Other 


















« 




— r~ 
j 


i : ' ; ! 


1 


1 ' ' ' 




" ~l ; 




M^ 


















7 




j~\ 




fa 


02 1$ ( 


* ! ' 




l 


200/ V5n 




M3 












. . 


I 






i 






t 


i/^STtOCK* 




H2 












fl 1 






i ' "~ T 






li 


QZtStQflO 




Ml 












,l.l . 


7J/M;ms'ac:t 


kz 


li r*«< 


:* r$*i 


. ! 






















«! 'I ' 


; ! :;i ^ 






1 


! ■ 


I 


3P01 V5N 




»3 












l j i 


i ■ : : 1 






, 




8 


lZiSToeu* 




K* 












< J i 


' 1 ! < '■ ' 










79 


794StQfiD 




Ml 












14! I 


' i : ' 








. 




jjo^hkr 


















1 « 


. 


1 








i 












■ ! 


♦KtWU 



















IBM 



INTHNATIONAl SUSINESS MACHINU COWOCATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM System/360 



-m 



n n n i* i* so 









| 
J 

4 


















I 

1 

IS 


1 

i 

14 


«•— 


a* 


Output 
Indkotors 










8 

s 

1 

i 

IS 


3 
1 

J 

i» 


M 

hn 

40 41 4141 


£ 
1 

3 

44 


Constant or Edit Word 

4144474S4fS0S1US154UM17M59«)4l414144t9M*74S*t7O 


Sterling 

Sign 
Position 

71 71 71 74 


Um 

14] 


Filename 

It ♦ 10 11 11 11 14 


i 

17 




i 


1 

ii a 


Am* Am* 


Timia 

Nome 

11 IS 14 IS 14 17 


1 

11 14 U 


1 

M 17 IS 


i 

MM 11 


• 


1 


O 


11 


H 


V 


« 


T 


* 


Y 




T 


i* 










M 




M* 




! ■ ' 1 












I ' i j j | 1 ■.'•■■■■:■: : 







) 




O 



















A 


3 










02 


" 


MR 




i : : 












i ; ' ■ ■: i ; : 




• 


4 




o 






























M« 






OHV AND 






15 




1 : < ; 







4 




o 






























3* 


i i i 






OH 


tjr 

















li 


o 




























MA 






■< 


*(• 


M» 










; ! ; i : 







• 




o 


























1 ! 

1 | 


i 




i i i 














• 


7 




o 






























i 




i ■ . i i 






, 




i i : i 1 




* 


m 




» 






























! 1 








i 
















i ■ . ! ! ! : i 
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Calculation specifications have been 
omitted because they are not affected by 
the particular Hatching-Fields approach 
under discussion. 

Output to the trailer card must be at 
total time (T in col. 15): the trailer 
cards are always unmatched (because the H1 



field was so designed) ; but, at total 
time, the MR indicator is still on if tb> 
preceding primary-file card matched tht- 
secondaries (which were then processed 
ahead of the "blank" trailer card) . On i ^ 
other hand, at total time, the indicdUu 
for the new card is already on, so ilut 
punching into the trailer card can jisu id 
conditioned by its indicator (02) . 
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Trailer cards of matched groups are 
directed to stacker 2; of unmatched groups, 
to stacker 3. 

General 



Object Program Register Usage 

In some applications in which the 
programmer specifies branching from RPG to 
a B.A.L. subroutine (by the EXIT operation 



code) , it is important to know, for 
programming of the subroutine, what 
function each of the eight general 
registers performs — (1) so that the 
contents of certain registers can be 
preserved before other data is placed in 
those registers during the subroutine, and 
(2) to make use of the data in the 
registers for the subroutine. 

Figure E25 itemizes the functions of the 
general registers. 
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After next detail-time output 



H1/H2 (Halt) 



Field and Resulting Indicators 



Never - but, if on at detail-output time, 
halts system thereafter 



When system is restarted after halt 



01-99 (General) 



Field and Resulting Indicators 



Never 



Never 



NOTE: 1 Any indicator may be turned on by a SETON specification, or turned off by a SETOF specification. 

2 Any indicator except L0 may be assigned as Field or Resulting Indicator —but, for unconventional assignments, Indicator 
Hierarchy and RPG Program Logic should be consulted. (Indicator L0 can only be assigned in calculation Resulting Indicators.) 

3 An indicator of one name or number is the same indicator no matter where or how often assigned. 
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APPENDIX G. SUMMARY OF EPG SPECIFICATIONS 



This brief column-by-column description of 
each of the five EPG specif icaticns fcrms 
is intended to provide a ccncise reference 
quide for the normal, common entries. 
Abbreviated phraseology is employed (symbol 
t> = blank) . For details, and less conven- 
tional specifications, the body of the 
manual should be consulted. 

Figures 6 (RPG Program logic) and 36 
(Fields Pertinent to Each Operation Code) 
are repeated at the end of this chapter, 
for the user's convenience. A new chart 
(Figure G1: Calculation Operations Sue- 
mary) is alsc appended. 



The code appropriate to each specifications 
type is preprinted on the form, and must be 
punched. (The pertinent codes are shown 
above .) 

Comments Card 7 (0 ) 

An asterisk (*) identifies a comments line 
for which no generation takes place. 

Program I dentificati on 75-80 (0) 

Any information desired to identify the 
specifications card. 



Note : The numbers that follow the 
underscored item name represent the 
specifications-card column for the item. 
The (R) cr (0) after the card-column 
numbers indicate that an entry is required 
or optional respectively. 



ALL SPECIFICATION FORMS 



FILE DESCRIPTION SPECIFICATIONS (REQUIRED) 

File_Name 7-14 (R) 

Enter a name once for each file used in the 
program. Left- justify. One to eight 
characters: first alphabetic, remainder 
alphabetic or numeric; no special charac- 
ters cr embedded blanks. 



Pa^e 1-2 (0) 
lini 3-5 (0) 

Any EBCDIC characters (see Appendix D) may 
he entered, and any positicn may he left 
jiank. Recommended: Ascending numeric 
sequence, to number cards in the order in 
which they are to be eriterea into the sys- 
tem. The specifications types must be in 
the follcwinq order for program generation: 

File Description Specifications (code F 

in col. 6) 
File Extension Specifications (cede E 

in ccl. 6) 
Input Specifications (code I in ccl. 6) 
Output-Format Specifications (cede in 

ccl. 6) 
Calculation Specifications (code C in 

ccl. 6) 

The specifications types are summarized 
here, however, in the same seguence in 
which they appear in the body of this manu- 
al, which was thought to be the most likely 
order of writing an RPG program. 

The first two line-numter digits are 
preprinted for convenience, en the first 15 
lines of each page; the third is available 
to identify additional lines to he 
inserted . 

Form Type 6 (R) 



File Type 1 



(R) 



I = Input: File name appears in input — but 
net output — specifications. 

= Output: File name appears in output — 
but not input--specif ications. 

C = Combined: File name appears in input 
and output specs. --file contains cards 
to be read, and cards to be punched 
and/or interpreted. (A file with cards 
to be read, and cards to be stacker- 
selected on any basis besides card 
type, must be defined C.) 

File Desi gn ation 16 (C — this RPG; R — other 
RPGs) 

P = First (primary) or sole input or 
ccmbined file 

S = Second or third (secondary/tertiary) 
input or combined file 
Note: Enter P ahead of S, and 

secondary ahead of tertiary. 

t> = Output file 

End_of_File 17 (0) 

E = LR turns on when last data card of all 
input cr combined files for which E is 
specified has teen processed. 
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i — Turn in" on of LF. determined by E 

entered for ether files; or, if t for 
all input and combined files. 



= E entry for all input and combined 
files. 



= IF. turns en when last data card of all 
input or combined files has been 
processed. 
\ 



Leave blank for output files. 



Sequence 18 (R: multiple input cr 
combined files) 
(0: single input or combined 
file) 

is = Output file; or 

b = Single input or combined file which is 
not to be Sequence-checked by 
Matching-f ields entry. 

A = Ascending \ sequence of single or of 

Vail multiple 
D = Descending ) input and combined files. 

Multiple input and combined* files must 
all have same sequence. 

Columns 19 -39 Leave blank. 

Device 40-46 (R) 

Code — left- justified — of I/O device to be 
associated with file name. Do not assign 
same device to more than ens file, or vice 
versa. 



CRP20 
MFCM1 
MFCM2 
PRINTER 



PRINTLF 
PRINTUF 



PUNCH20 
PUNCH42 
READ01 



IBM 2520 Card Read-Punch 

IBM 2560 MFCM, Hcpper 1 

IBM 2560 MFCM, Hcpper 2 

IBM 1403 Printer, or 

IBM 2203 Printer — 

Standard or Lower Feed 

PRINTER (see immediately above) 

IBM 2203 Printer — Upper Feed 

(Dual-Feed Carriage 

special feature) 
IBM 2520 Card Punch 
IBM 1442 Card Eunch 
IBM 2501 Card Reader 



Columns 47-65 Leave blank. 



INPUT SPECIFICATIONS (REQUIRED) 

Input Specifications contain entries only 
for input and combined files. At least one 
input cr combined file is required. For 
multiple input or combined files, record 
files in order of priority: Primary, 
Secondary, Tertiary (if applicable) . 



File and Card-Type Identification 7-42 ( R ) 



Fil e Name 7-14 (R) 

Enter name once per 
file — left- justified. One to eight 
characters: first alphabetic, remainder 
alphabetic or numeric, no special 
characters or embedded blanks. 

Same name must appear as input or 
combined file in file-description 
specifications. 



AND Relationship 14-16 (0) 

AND = Record Identification Codes (col. 
21-41) in this line must be 
considered with those from the 
preceding line tc establish 
identification of the card type. 



OR Relationship 14-15 (0) 

OR = The card type defined in this line is 
to be in an OR relationship to that 
defined in the preceding line. It may 
or may not be assigned a separate 
Resulting Indicator (cols. 19-20). 



Sequence 15-16 (R) 

To check relative sequence of card types 
within a file: 

Record such card types in the order in 
which they should appear in the 
file; 

Assign 1 to the first such card type 
within a file; 

Assign any two-digit numbers (higher 
than 01) to succeeding card types, 
in ascending sequence. (Leading 
zeros must be recorded.) 

Note : Sequence does not recognize Control- 
Level breaks. 



Comments 66-74 (0) 

Any information that is to be printed next 
to the specifications at object— program 
generation time without affecting the 
program. 



For card types that may appear in any 
relative position or sequence in the file: 

Record any two alphabetic characters. 

When both card types with numeric and 
alphabetic Sequence codes exist within a 
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file, these with alphabetic codes must 
appear first. 

Do not enter a Sequence code in AND or 
OR lines. 

Number 17 (R: eels. 15-16 numeric) 

ft>: cols. 15-16 alphabetic) 

t = Sequence code is alphabetic 

1 = One such card per grcup ~j Sequence 

N = One cr more such cards per > code is 

group ) numeric 



Position [cols.. 2,1- 24 j . Number of card 

column containing an identifying code. 
Right- justify ; leading zeros unnecessary. 



No t_J c o 1^ 251 . 



N = The cede (col. 27) 

must be absent /to satisfy criteria 

t> = The code (col. 27) \ for this card type 
must be present 



Option 18(0: eels. 15-16 numeric) 

(£: cols. 15-16 alphabetic) 

t = Sequence code is alphabetic; 
or 

± = Card type must be represented^ 

in each group /Sequence 

I code is 

C = Card type need net be repre- (numeric 
sented in each group / 



C/ Z/D ( col. 2 61 . 



C = Match entire character in data-card 

column against entire code in specifi- 
cation col. 27. 



D = Match digit portion of character in 

data-card column against digit portion 
of code in specification col. 27. 



Resulting In dicat or 19-20 ( C) 



01-99, HI, H2 = 



Indicator number to repre- 
sent the card type defined 
by the Record Identifica- 
tion Codes (cols. 21-41) . 
(Do not drop a leading 
zero.) 

H1, H2 cause halt after 
next card is read. 



15 = No indicator to be assigned to this 

card type; or 
= CR line to which same indicator is to 

-ap-piy- as- in th-e preee-d-i-ftg l-i^« wi-th- 

indicator; or 
= AND line 

Indicator turns on, and previous card- 
type Resulting Indicator turns off, before 
total tirce following reading of card. 
(Other indicators — besides 01-99, HI, H2 — 
are also permitted, but reguire detailed 
understanding of time relationships and 
indicator hierarchy.) 



Record I dentific a tio n Codes 21-11 ( ) 



Thr 
21-27, 
relati 
OR rel 
OR lin 
first 
entire 
tested 
this c 
Ty pe S 



ee l 

28- 

onsh 

atio 

es ( 

subf 

are 

aga 

ard 



dentic 
34, 35 
ip; ad 
nships 
see co 
ield i 
a (col 
inst t 
type, 
nee Ch 



ejjue 
identification 1 



al subfields: eels. 

-41. Sutfields are in AND 

ditenal AND subfields, and 

, available through AND and 

Is. 14-16) . Only the 

s described here. If 

s. 21-41) blank, all cards 

his line are identified as 

(See Nature, of t he Card- 
eck for crder in which 
ines are tested.) 



Z = Match zone portion of character in 

data-card column against zone portion 
of cede in specification col. 27. 



Charact er (col. 27 ) . Identifying code 
(any EBCDIC) for which to test. If D or Z 
in col. 26 — with other than A-Z, 12, 11, 
0-9, +0, -0, or "ft — see C/Z/D in body of 
manual. 



Stacker Select 42 (C) 



Number of stacker to which card type is 
to be directed (subject to stackers avail- 
able in particular I/O unit) . 

"b = Input-file card type to normal or 
only stacker of I/O device; or 
= Combined-file card type requiring 

output operation; or 
= AND line 

1-5 = Input-File card type to specific 
stacker of I/O device; or 
= Combined-file card type requiring no 
output stacker selection, card punch- 
ing, or card document-printing. 



Field Descriptions 43-74 



(0) 



Field-description lines for a card type 
(or grcup of OR- relation card types) — one 
line per input field used in the program — 
follow immediately beneath the File and 
Card-Type Identification line (s) for the 
card type (s) . The entries for card-type 
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identification and field description must 
not te in the same line. 



Note: R means that the entry is required 
when there is a Field-Description line. 



Packed 4 3 (0) 

ft = Input data in standard (non-packed) 
format; or 
= Input data net defined as numeric. 

P = Input data, from field defined as 

numeric (0-9 in col. 52), already in 
packed format — limitations: 

Maximum length of field = 8 eclumns 
( = 15 digit positions, plus sign); 
No Control Level (cols. 59-60) or 
Matching Fields (cols. 61-62) entry 
permitted . 



Note : In subsequent operations, a packed 
input field must be considered of length L 
= 2n-1, where n = number of columns. 



lie ld_ Location 4 4-51 (R) 



card column of 
input field — 
range: 1-80 



From (cols. 4 4- 47J_ . 

First lleftmost) 

To_Jcols_. 4 8-51}. i 

Last (rightmost) ) 

Eight- justify; leading zeros unnecessary. 

Max. permissible field sizes where less 
than* 80: Numeric field — 15 digit posi- 
tions (plus sign) ; Alphameric field used 
in CCEP operaticns--40 positions. 



Decimal Positions 52 (0) 

ft = Alphameric field; or 

= Numeric field that need not te defined 
as numeric (see immediately below) . 

0-9 = Number of decimal places in field 

hereby defined as numeric. Field must 
be defined as numeric if: 

a. Used in arithmetic calculations; or 

t. To be used in numeric (as con- 
trasted with logical) COMP opera- 
tion; or 

c. To be formatted for output by edit 
word or zero suppress; or 

d. To act as search argument (LCKUP 
operation) for an argument table 
defined as numeric; or 

e. P (packed) is specified in col. 
43. 



Definition as numeric: 

a. Strips all zones — except in the 
low-order position — for general use 
of the field (i.e., the program 
packs the field) ; and 

b. Strips all zones for use of the 
field in Control-Level or Matching- 
Fields operations. 

c. Limits the field size to 15 digits 

(plus sign) . 



Field Name 53-58 (R) 

Left- justify . One tc six characters (four^ 
character limit if used with RLABL op. 
code) : 

first alphabetic, remainder alphabetic 

or numeric. 
No special characters or embedded 

blanks. 
AITSEQ, CONTD(x), TAB (-X) U) (x) , and 
PAGEx(x) prohibited — see body of 
manual for use of PAGEbft. 



Control_Leyel 59-6 (0) 

LWL9 = Control-Level indicator (s) for that 
and lower levels turn on when field 
contents in successive cards differ 
(L 1 is lowest level, L9 highest.) 

Multiple Control Levels for one card 
type must be specified in ascending 
sequence — lowest level used appears in 
uppermost line for which a Control Level is 
designated. The lowest level assigned need 
not be L1, and there may be gaps in levels 
used. A Control Level may be assigned to 
spme card types and not others. 

Same Control level may be split among 
several fields, but no other Control Level 
may intervene between the portions. The 
sum of the number columns for all portions 
of a split Control Level, and for unsplit 
control fields, must be uniform for all 
card types where that level is specified . 

If any field to which a Control Level is 
assigned is defined as numeric, all control 
of that level is numeric (all zones 
stripped) . 

Packed input fields cannot have Control 
Level assigned. 



Matching F ields 61-62 (C) 

A primary file can be matched to a 
secondary file, or to a secondary and a 
tertiary file; and files can be seguence 
checked. 
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M1-M3 = Successive cards of single or mul- 
tiple input and ccnbined files are 
seguence-cbecked en the field (s) ; 
also 
= Multiple input or combined files 
are matched on the field (s) --this 
determines status of ME indicator, 
and sequence in which cards frcm 
the several files are processed, 
within the priorities (primary, 
secondary, tertiary) established by 
the file order in the input 
specifications. 

M1 must be assigned tc lowest-level or 
only Hatching Field, M2 to next higher, M3 
tc highest. 

A Matchinq-Fields level cannot be split 
between several fields in one card type. 

Matching Fields may be assigned to some 
card types and not others; but 

a. At least one card type in each of 
multiple input or combined files 
must have Matching Fields assigned; 
and 

b. The same number of Matching-Fields 
levels must be specified for all 
applicable card types, and the 
length of a Matching Field of cne 
level must be uniform. 



Relation, the indicator-conditioned 
entry takes precedence when the per- 
tinent indicator is on. 

Any Control-Level or Matching-Fields 
entry without indicator must precede any 
entry with indicator for the same level. 
Do not condition portions of one split Con- 
trol Level differently. Do not vary the 
number of Matching Fields levels applicable 
to different OR card types beyond the 
choice of whether or not Matching Fields 
apply. 

It is advantageous to group field- 
description lines by indicator, preceded by 
those without indicator. 



Field Indicators 6 5-70 (C) 

Enter any indicator code (normally: 01-99, 
H1 , H2) to cause that indicator to turn on 
if the field contents conform to the 
assignment of the indicator; any indicators 
assigned to the other two conditions turn 
off--the settings occur before 
detail-calculation time. (Do not drop a 
leading zero.) The same indicator assigned 
to more than one condition turns on if one 
of these is satisfied. 

If H1 or H2 is turned on, system halts 
after next card is read. 



If any field to which a Matching-Fields 
level is assigned is defined as numeric, 
all matching and/or sequence-checking for 
that level is numeric (all zenes stripped) . 

Packed input fields cannot have Matching 
Fields assigned. 

Matching Fields have no inherent rela- 
tionship to Control Levels, nor need Con- 
trol Levels te specified solely tecause 
Matching Fields are specified. 



Fie ld -Re co rd R e latio n 63-6 4 (0) 

To relate a field description to a particu- 
lar cne of several card types in an OR 
relationship, enter here the card-type 
Resulting Indicator assigned tc the per- 
tinent card type. Fields without indicator 
are associated with all card types in the 
OR relationship, regardless of whether they 
also appear with indicator — except for 
Control-Level and Matching-Fields 
operations: 

If the same Control Level or Matching- 
Fields level appears bcth with and 
without an indicator in Field-Eecord 



Plus ( cols. 65- 66) . Tests for value in 
numeri c field greater than zero (low-order 
position 12- or no overpunch--but excluding 
all-zero value signed plus) . 



Minus (co l s. 67-68 ). Tests for value in 
numeric field less than zero (low-order 
position 1 1-overpunch--but excluding all- 
zero value signed minus) . 



Zero o r Blank (cols. 69-70) . Alphameric 
field: tests for blank. Numeric field: 
tests for absence of sianificant digits 
(1-9) ; i.e., turns en if blank, zero, ±0, 
or zones alone. Indicator also turned on 
at beginning of program execution and fol- 
lowing each Blank-After output 
specif icaticn — until changed by data read 
from card of pertinent type. 



Sterling Sign Position 71-74 ( ) 

Leave blank unless processing Sterling- 
currency amounts. (Refer to SRL publica- 
tion IBM System/36C Model 2 0, Sterling Cur- 
ren cy Processing Routines, Form C26-3605.) 



318 Systeir/360 Model 20 CES Report Program Generator 



CAIC0LAT1CN SPiClF ICATIO N S (OPTIONAL) 

See figures Gl and G2 at end of chapter for 
supplementary details. 



Note: Operations occur in the order speci- 
fied, within grouping of detail time or 
total time (see cols. 7-8). 



Contrcl_revel_7 z 8 (0) 



Literal 

Num er ic. Maximum length: ten characters. 

May consist only of digits (0-9) 

and — optionally; 

Cne decimal point (or comma, if Euro- 
pean notation specified in EPG Control 
Card — Card H, ccl. 21), and/or one 
leading sign (+ or -) . 

Number assumed positive if no sign, and 
integer if no decimal point. 



■fi = Detail-time operation 

L1-L9, LE, IC = Total-time operation, and 
performed cnly if the spe- 
cified indicator is then 
en. LO normally always on 
(exceptions: see text). 
L1-L9 en when control treak 
of that cr higher level. 
LR on after processing last 
input card (also turns en 
L1-L9) . 



Note : All detail-time calculation specifi- 
cations trust precede those for total time. 



Note: + is punch combination 12-6-8 



Indicators 9-17 



(0) 



Three identical subfields in AND rela- 
tionship: eels. 9-11, 12-14, 15-17. One 
to three indicators may be entered to con- 
dition performance of the operation. Sta- 
tus cf the indicators not affected ty 
specification here. 

Entire field blank = Execute operation each 

program cycle 



txx (xx = any 
indicator) 



Nxx 



= Execute operation only 

if that indicator is 
en. 

= Execute operation only 

if that indicator is 
off. 



Alphameric. Maximum lencrht 



eight EBCDIC 



characters, plus enclosing apostrophes. 

Fac to r 1 used with operation codes ADD, 

SUB, MULT, DIV, COMP, TAG, LOKUP. 

Factor 2 used with all operations except 
MVR, TESTZ, SETON, SETOF, TAG, ELABL. 
(Field name limited to four characters if 
used with EXIT operation.) Also see 
Figures G1 and. G2 at end of this chapter. 



Operation 28-32 (E) 

Entry of an EPG operation code, left- 
justified, reguired (except in a Ccmments 
line--asterisk in ccl. 7). 

Decimal alignment automatic in arithmet- 
ic operations and numeric COMP. Sign con- 
trol automatic in arithmetic operations. 
Eesults of arithmetic operations always 
signed; zero result always +0. See Figures 
G1 and G2 at end of chapter for operations 
summary. 



Operations with Eeduced Field-Size Limits 

COMP (alphameric) : 40 positions 
LCKUP (alphameric) : 80 positions 
Arithmetic cps. reguire numeric fields; 
TESTZ reguires alphameric field. 



Note: An indicator in cols. 7-8 is in AND Res ult Field 43-48 
relationship tc indicators in cols. 9-17. 



Factor 1 

Factor 2 



18-27 
33-42 



Field names or literals used in calcula- 
tion Enter left- justified. 



F ie ld Name 

Must te defined as Result Field in cal- 
culaticn specifications cr — if it is an 
input field--in input specifications. 



Name (left- justified) representing loca- 
tion where result of operation is to be 
stored. One to six characters (four- 
character limit if used with RLABI op. 
code) ; first alphabetic, remainder alpha- 
betic or numeric. No special characters or 
embedded blanks. PAGE has special use; 
INxx restricted in ELAEL lines; 
TAB (x) (x) (x) confined to function table. 

See Figures G1 and G2 at end of chapter 
for operations requiring Besult-Field 
entry . 
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Defining Result Field 43-48, 49-51, 5 2 



Every Result Field must he defined cnce, 
either in a calculation specification cr — 
if it is an input or table field — in the 
input or file extension specifications, 
respectively. If defined itore than cnce 
(unnecessary), all definitions (length, 
decimals) must be uniform. 

A field is defined by assigning field 
name (cols. 43-48) , field length (eels. 
49-51), and — if numeric--decimal positions 
(ccl. 52). Result Field is used with 
arithmetic, move, TESTZ, and RLAEL 
operations (i.e., all except CCMP, SETCN, 
SETOF, GCTC, TAG, EXIT) ; used with LCKUP 
only if function table. 



Field Length 49-51 (0) 

t = No Result Field with this operation 

(cols. 43-48 blank); or Result 

Field not defined here. 
1-15 = Numeric field (if tco short fcr 

result, high-order digits lest) . 
1-40 = Alphameric field used in COMP op. 
1-80 = Alphameric field used in table LOKUP 

op. 
1-25-6= Alphameric field, net used in CCMP 

or LOKUP op. 
Leading zeros unnecessary. 



Decimal Pcsiticns 52 (0 ) 

t = Alphameric field (cr numeric field 

that need not be defined as such) ; or 
= No Result Field with this operation 

(eels. -~ij"3-5'f Hank) ; of 
= Result Field not defined here. 
0-9 = Number of decimal places in field 
(hereby) defined as numeric (total 
field length in cols. 49-51). 
Field must be defined as numeric if 

(a) Used in arithmetic ops.; or 

(b) Used in numeric (as contrasted 
with logical) CCMP op. ; or 

(c) To be formatted for output by 
edit word or zerc suppress; cr 

(d) To act as search argument (LCKUP 
op.) for argument table defined 
as numeric; or 

(e) Output to be in packed format. 



H§lf_Adjust 53 (0) 

H = Half-adjust result of arithmetic opera- 
tion before dropping excess decimal 
position (s) . 



Resulting. Indicators 5 4-59 



Any indicators may te specified — 
normally: 01-99, HI, H2 (if HI or H2 is on 
at end of detail-calculation time, system 
halts after next card is read) . Changes in 
indicator status are effective as soon as 
operation has been performed. Up to three 
indicators may be assigned in operations 
that permit any Resulting Indicators 
(except LOKUP) . The same indicator can be 
specified in several lines. 



Arithmetic Op e ratio ns (0) 



All fields must be numeric. Enter indi- 
cator code (if desired) to cause that indi- 
cator to turn on if the result conforms to 
the assignment of the indicator; any indi- 
cators assigned to the other two conditions 
turn off. The same indicator assigned to 
more than one condition turns on if one of 
these is satisfied. 



Plus ( c ols . 54-55) . Result greater than 

zero (excludes+O) . 
Minus (eels. 56-57) . Result less than zero. 
Zero (eels. 58-59) . Result zero (always 

+0) . Also on initially, and following 



Blank-After (output specs.) 



Compare (CCMP) Operation (R — at least one) 

An indicator whose assignment reflects 
the operation result turns en; others turn 
off. One indicator assigned to more than 
one cendition turns on if any of these is 
satisfied . 



Hi3lL_Jcols^ 54^51 . 

Lo w (cols^ 56-57) . 

Ec[u a 1_ Jcpl Si_5 8-591 . 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 



Comparison algebraic fcr numeric fields, 
logical (EBCDIC seguence) for alphameric 
fields. 



Test Zone (TESTZ) (R — at least one) 

Alphameric field only. High-order posi- 
tion of field is tested. An indicator 
whose assignment reflects the operation 
result turns en; others turn off. One 
indicator assigned to more than one condi- 
tion turns on if any of these is satisfied. 

Hi gh (cols. 54-55).. 12- zone (hex. 50 or 

CX) 

Low (cols. 56- 57) . 1 1-zone (hex. 60 or Dx) 

Blank (cols . 58-59) . No zone (not hex. 

50, 60, Cx, Dx) . Also on initially, and 
following Blank-After (Cutput specs.). 
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one) 

The indicators specified are turned on 
or off, respectively. 



Table Lock-Up (LOKUP) (E — one or two) 

One indicator may be assigned to one of 
the three conditions; or cne indicator, or 
two different indicators, may be assigned 
to Egual and High, or to Equal and Lew. 
This causes search of the argument table 
(Factor 2) for an entry that bears the 
designated relationship to the search argu- 
ment (Factor 1) . 

If indicators are assigned to two condi- 
tions, an Egual match takes precedence. If 
a table entry meets a specified condition, 
the corresponding indicator turns en; a 
different indicator assigned to another 
condition, turns off — if it is the same 
indicator, it will be en. If the 
condition (s) cannot be satisfied, the 
indicator (s) will be off. 

A rgument Sea rch 

Table Argum ent 
Factor 2 > Factor 1 
Factor 2 < Factor 1 
Egual (eels. 5 8-59) . Factor 2 = Factor 1 

Note that High and Lew significance is the 
reverse of form-column heading. 



HiS h__i c o Is.. 54- 5 51 . 

Low_Jccls^ 56-57) 



Other Operation Cedes 

No Resulting Indicators permitted. 

Comments 60-74 (0) 

Permits any comments to be printed at 
generation time next to specifications in 
the same line, without affecting program 
generation. 

FILE EXTENSION SPECIFICATIONS (OPTIONAL) 

Eeguired if table lock-up (LOKUP) used in 
Calculation Specifications. 

Columns 7-26 

Leave blank. 

First or O nly Table in a Tab le-I n put D eck 
27-45 (B) ~^ 

Table_Nanie 27-32 (E) 

Left- justify. Four to six characters 
(four-character limit if used with ELAEL 
op. code) : 

first three TAB, remainder alphabetic or 

numeric. 



No spe<jiaj_ cnaracters or emceaaea 
blanks. 



If alternating- table input, this is name 
of table to which first entry in each card 
belongs. 

Number of Table Entr ies pe r Record 3 3 - 3 5 ( R ) 

Number of entries in one card of this 
table. Right- justify; leading zeros 
unnecessary. 

Num ber of T able Entri es per Table 36-39 (E) 

Exact total number of entries in this 
table. Bight- justify; leading zeros 
unnecessary. 

Length of Table Entry 40-42 (E) 

Number cf columns per entry for this 
table (named in cols. 27-32). Eight- 
justify; leading zeros unnecessary. 

Maxima: Alphameric — 80 columns 
Numeric — 15 columns 

Packed 43 

Leave blank: Packed-data table input 
not permitted 



Decimal Positions 44 



(C) 



f> = Alphameric 

0-9 = Number of decimal places in numeric- 
table field. 
N =0 



Segue nce 4 5 (0) 



t> = Table search only for Egual match 
A = Table values in \ 

ascending seguence ( High or Low search 
D = Tatle values in ( specified 

descending seguence ) 



Sec ond Table, Alternating- T able Formats 
46-57 (0) 



Table Name 4 6-51 (E) 

Name of tabie to which secend entry in 
each card belongs. Entries equivalent to 
those described under col. 27-32. 



Length of Ta ble Entry 52-54 (E) 

Eguivalent to cols. 40-42, but for 
second table. 
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Packed 5 5 

Leave blank. 

Dec i ma 1_ Positions 56 (0) 
Equivalent to col. 44 

Sequence 57 (0) 

Equivalent to ccl. 45 

Comments 58-74 (0) 

Permits any comments to be printed at 
generation time next to specifications in 
the same line, without affecting proqram 
qeneraticn. 

OUTPUT-FCRMAT SPECIFIC ATICNS (OPTIONAL) 

Output specifications contain entries cnly 
for output and combined files. All detail- 
tor heading-) time output specified ahead 
of total-time output. Output (within 
grouping of detail and total time) occurs 
in the order specified — except (1) separate 
overflow-output time and (2) card-print 
transfer tc output-storaqe area after card- 
punch transfer for same File-Identification 
qroup. 

(Ereferably, alternate punching and 
forms-printing when mere than one of either 
during same cycle seqment.) 



During overflow output, T output precedes 
D. 



Stacker. Select 16 



(0) 



t = Normal stacker; or 

= Single-stacker device; or 
= Card type (combined file) stacker- 
selected in input specifications 

1-5 = Output- or combined-file card to spe- 
cific stacker of I/C device (combined 
file not stacker-selected in input 
specifications) . 



AND_Jelaticnshi£ 14-16 (0) 

AND = Output Indicators (cols. 23-31) in 
this line must be considered with 
those from the preceding line to 
establish the conditiens under which 
the output is performed. 



OR Rel ati onship 14-15 (0) 

OR = The output conditions defined in this 
line are in an OR relationship to 
those defined in the preceding line. 
If either set of conditions (Output 
Indicators, cols. 23-31) is satis- 
fied, the output is performed at the 
appropriate time. 

Forms control from the precedinq line is 
applied unless cols. 17-22 contain an 
entry. (0 is considered an entry.) 



File Identifica tion and C cntrol 7-31 ( R ) 



F ile Name 7-14 (R) 

Enter ence for each output operation to 
the file (but card punchinq and card- 
printing to the same card specified under a 
single file-identification entry) . 

Exception: When output tc same file 
specified repeatedly, file name need net be 
repeated if no other file name intervenes. 

Left- justify. One to eight characters: 
first alphabetic, remainder alphabetic or 
numeric; no special character or embedded 
blanks. Same name must appear as output or 
combined file in file-description 
specifications. 



Tl£e 15 



IE) 



Space (Before/After ) 17-18 '(C) 

0-3 = Advance form the specified number of 
spaces before and/or after printing, 
respectively . 

"6 =0 (see exception for CR lines, above) 



Skip (Before/After) 19-20, 21-22 (O) 

01-12 = Advance the form to the next 

carriage-control-tape punch in the 
specified channel before and/or 
after printing, respectively. 

00=tb = No skip (see exception for OR 
lines, above) 



NOTES on Forms Control 



E (or H) = Detail-time output 
T = Tctal-time output. 



1. Leave blank in AND line 

2. Space/After or Skip/After has through- 
put advantage over. Space/Before or 
Skip/Before. 

3. If Space/Before and Skip/Before both 
specified: Skip is executed, followed 
by Space. 
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4. If Space/After and Skip/After both spe- 
cified: Only the Space/After operation 
is executed. 

5. For compatibility with other RPGs: One 
entry in cols. 17-22 required. 

6. Printing at or below channel 12, but 
above next channel 1, turns on OF indi- 
cator at end of cyle segment (detail or 
total output respectively) — or OV indi- 
cator if upper feed of Dual-Feed Car- 
riage. Advance to channel 1 automatic 
if OF (or OV) not specified in any 
file-identification Output Indicators. 



Output I ndica tors 23-31 (0) 

Three identical subfields in AND rela- 
tionship: cols. 23-25, 26-28, 29-31. 
Only the first subfield is described here. 
One to three indicators may be entered to 
condition performance of the output opera- 
tion; additonal AND subfields, and OR rela- 
tionships, available through AND and OR 
lines (see cols. 14-16). Status of the 
indicators not affected by specification 
here. 

Entire field blank = Execute operation each 

proaram cycle. 

t>xx (xx = any 

indicator) = Perform this output 

only if that indicator 
is on. 
= Perform this output 
only if that indicator 
is off. 
= Perform this output 
only at overflow time; 
and provided the OF 
(or OV) indicator is 
then on, as well as 
any other Output Indi- 
cators specified for 
this (or an AND) line. 



Nxx 



•BO? (or tOV) 



CAUTION: If no conditioning indicator is 
specified, or only 1P, or only Nxx for 
indicators that are off initially, or bxx 
for indicators that are on initially (Zero- 
or-Blank), the output is performed before 
the first card has been read. 



Fiel d De scripti on and Control 23-47 (0) 

One line describes one output field 
within the file-identification group 
— separate line required for card punching 
and card document-printing. 

Field-description lines follow immediately 
beneath the pertinent file identif ication-- 
field description must not be on same line 
as file identification. 



Output Indicators 23-31 (0) 



As described under Output Indicators, 
above (File Identification) , with these 
differences: 



1. No AND lines 



2. No OR lines 

3. Entries condition only output of the 
field or constant described in that 
line, and the output is also subject to 
Output Indicators in the file 
identification. 

4. Entry of OF (or OV) does not transfer 
the output to overflow time — merely 
makes it subject to the status of the 
overflow indicator at output time. 

5. Used with field PAGE, do not condition 
its output, but cause initialization to 
1 before output. 



Field_Name 32-37 (0) 

Any field name defined in Input, File- 
Extension, or Calculation Specifications. 
Field name PAGE for automatic consecutive 
numbering. left- justify . Fields need not 
be listed in the order in which they are to 
appear in the output file. Prohibited 
names: ALTSEQ, CONTD(x), PAGEx (x) . Leave 
blank if constant specified (cols. 45-70) . 
Either field name or constant required. 



Zero Sui 



(0) 



■¥> = Alphameric field; or 

= Constant specified (cols. 32-37 

blank) ; or 
= Edit word specified (cols. 45-70) ; or 
= Packed Field (P in col. 44) ; or 
= Output to include any leading zeros and 

low-order-position zone. 
Z = Any zone or leading zeros removed from 

output. 

Permissible only for numeric fields. 



Blank After 39 



(0) 



t) = Field contents (or constant — cols. 
45-70) undisturbed after output 

B = Field (or constant) cleared as data 

moved to output-storage area. (Numeric 
field: 0; alphameric: 15.) Field or 
Resulting Indicator assigned to Zero- 
or-Blanks turns on. 
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End Position in Output Re cord 40-43 (E) 

Enter number of rightmost position in 
output file (forms print position, card 
column, or card-interpret position). 
Right- justify entry; leading zeros unneces- 
sary (col. 40 always "6 or 0) . 

CAUTION: Allow ^or expansion of field by 
edit word. 

Output to card file. Col. 41 establishes 
whether punching or interpreting: 



= 



Punching 



1-6 = Print ^ead to be used for 
interpreting. 



Packed 4 4 (0) 

t> = Data to be output in standard (non- 
packed) format; or 
= Field not defined as numeric; or 
= Constant 

P = Output of data, from field defined as 
numeric, to be in packed format. The 
output data is then of length 
L = (n+1+E)/2, where 

n = digit capacity of field; and 
E = 0, if n is odd, and 
= 1, if n is even 



Con sta nt 4 5-70 (0) 



spaces, and any constant data desired 
among — but not following — them, plus 1 
if $ symbol. Blank is replaced by 
digit — with possible exception of lead- 
ing 0--from corresponding field 
position. 

= leading zeros, and any constant 
edit-word characters preceding 
first significant digit, suppressed 
through this point. At least one 
leading zero is suppressed if an 
edit word is specified, all 0's and 
constant characters (exc. $) sup- 
pressed if field all-zero and no 
or * in edit-word body. 
& = Space in output record 
$ at extreme left = $ in that output 
record position, regardless of 
handling of leading zeros. 
$0 = Floating $ symbol = $ replaces 

rightmost leading through this 
(0-entry) point. 
* = Asterisk protection = * replaces 
leading zeros through this point, 
and any constant edit-word charac- 
ters to the first significant 
digit. Precludes $. 



Any EBCDIC character (except B or &) in 
the edit-word body — including comma and 
decimal point--to right of first signi- 
ficant digit or end of zero suppres- 
sion, appears identically in the corre- 
sponding location of t^e output record; 
to the left of that point, it is 
suppressed. 



T eft- justify . Any EBCDIC characters 
that are to appear in the output record are 

specif ie d here, enclosed .in ...apostrophe s_._ 

(Two successive apostrophes within the con- 
stant appear as one apostrophe in the out- 
put.) Distinguished from edit word by 
absence of field name (i.e., cols. 32-37 
are blank) . Zero Suppress (col. 38) and 
Packed Field (col. 44) must be blank. 



Edit_Word 45-70 (0) 

Left- justify. Any EBCDIC characters, 
enclosed in apostrophes. Some of the 
characters appear as such in the output 
record; others serve special functions. 
Distinguished from constant by presence of 
field name (cols. 32-37). The field named 
in the line must be defined as numeric, and 
must contain valid digits (no hex. A-F, 
except in sign position) . Zero Suppress 
(col. 38) and Packed Field (col. 44) must 
be blank. 



Presence of edit word removes low- 
order- position., .zone from .output... 

2. Status portion of edit word = Positions 
to right of body through CR or - sym- 
bol, used to identify neaative values. 
If no CR or - to right of body, there 
is no status portion. 

t> or & = ti in output record 

CR or - = CR or -, respectively, in 

output record when data 

negative 
= * in output record, when data 

not negative. 

3. Expansion of edit word = Positions (if 
any) to right of status portion; if no 
status portion, then to right of body. 
Any EBCDIC character (incl. & and 
space) appears identically in output 
record . 



Ste rl ing Sign Posit ion 71-74 (0) 



Abbreviated rules for edit words. 

1. Body of edit word = Exact number of 
positions allowed for data digits, 



leave blank unless processing Sterling- 
currency amounts. (Refer to SRL publica- 
tion IBM Syst em/ 360 Model 20, Sterling Cur- 
rency Pr oc essi ng Ro utines, Form C26-3605.) 
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Op. 
Class 






Factor 1 


Operation 
Code 




Result 
Field 


Comments 








Possibilities Presented Algebraically 




u 
a 

H 

6M 

.S> a 
JJ 

L. 0) 


Add Factor 2 to Factor 1 


a(N) 


ADD 


b(N) 


c(N) 


a+b=c/a+a=2a/b+b=2b/a+c=c '/ 
c+b=c /c+c=2c 




'Set Result Field to zero; then add Factor 2 




Z-ADD 


b(N) 


c(N) 


0M-b=c'/CH-c=c 


Factor 2 may be c 


Subtract Factor 2 from Factor 1 


a(N) 


SUB 


b(N) 


c(N) 


a-b=c/a-a=0/b-b=0/a-c=c'/ 
c-b=c /c-c=0 


c-c=0 is the most 
efficient method to 
set a field to zero 


Set Result Field to zero; then subtract 
Factor 2 




Z-SUB 


b(N) 


c(N) 


0-b=c'/0-c=-c 


0-c=-c: best method 
to reverse sign 


Multiply Factor 1 by Factor 2 


a(N) 


MULT 


b(N) 


c(N) 


axb=c/axa=a /bxb=b /axc=c / 
cxb=c /cxc=c 




Divide Factor 1 by Factor 2 


a (N) 


DIV 


b(N) 


c(N) 


a +b=c/a4-a=l/b+b=l/a -i-c^' / 
c+b=c /c+c=1 


No Half-Adjust if 
MVR follows 


Move Remainder of preceding DIV to a 
Result Field 




MVR 




c(N) 


Must follow immediately after DIV without Half-Adjust 
and with same Indicators. 


j 

O 

o 

c 

;>■ o 
.18 
Si 

o — 
a- o> 

O .£ 
a — 

Ji 


Move Factor 2 into Result Field - 
right-justified 




MOVE 


b (A/N) 


c (A/N) 


No decimal alignment performed. If Factor 2 shorter: Left 
positions of result field unchanged. Excess left positions of 
a longer Factor 2: Not moved . 


Move Factor 2 into Result Field - 
left-justified 




MOVEL 


b (A/N) 


c (A/N) 


No decimal alignment performed. If Factor 2 shorter: Right 
positions of result field unchanged. If Factor 2 longer: 
Excess .right positions not moved, except for the sign if the 
result field is numeric, 


a> 
c 
o 
N 
a 
> 
o 
5 


from low-order position of Factor 2 
to low-order Result position 




MLLZO 


b (A/N) 


c(A/N) 




from high -order position of Factor 2 
to high-order Result position 




MHHZO 


b(A) 


c(A) 




from low-order position of Factor 2 
to high-order Result position 




MLHZO 


b(A/N) 


c(A) 




from high-order position of Factor 2 
to low-order Result position 




MHLZO 


b(A) 


c (A/N) 




COMP & TESTZ: 
At least one 
Resulting Indicator 


Compare Factor 1 to Factor 2 


a (A-N) 


COMP 


b(A-N) 




Numeric fields decimal -aligned; missing positions treated as 
zeros. Alphameric fields left-aligned; missing positions 
treated as blank. Numeric compare is algebraic; alphameric 
is logical EBCDIC. 


identify zone in high-order position of 
alpha. Result Field 




TESTZ 




c (A) 


A Resulting indicator assigned to Biank is on at start & follow- 
ing Blank-After 


£ o 

*- u 

11 


Turn on one, two, or three specific 
indicators 

Turn off one, two,or three specific 
indicators 




SETON 
SETOF 






Specify one, two, or three Resulting Indicators 


Branching: 
No Resulting 
Indicators allowed 


Branch to another RPG calculation 

specifications line 

Identify line as destination point of GOTO 

instruction^) 

Branch to an external B.A.L. routine 

Identify RPG field for use in external 

routine 


name 


GOTO 

TAG 

EXIT 
RLABL 


name 
name 


name 


One to six characters ' 
One to six characters 
One to four characters 
One to four characters 


First character alphabetic; 
remainder alphabetic or numeric. 
RLABL may also be 
TABxor INxx. 


a. 
•2.3 


Search argument table for value that bears 
to search argument the relationship speci- 
fied by Resulting Indicator(s). If a function 
table is specified, corresponding function is 
located . 


argument 
a (A-N) 


LOKUP 


argum't table 

TABx(x)(x) 

(A-N) 


function table 
(optional) 
TABx(x)(x) 
(A/N) 


No decimal alignment performed. At least one Resulting 
Indicator needed. Do not assign Resulting indicator to 
both High and Low. Table should be in sequence if 
Indicator in High or Low. 


LEGEND: (A) = Alphameric (A/N) = Alphameric or Numeric 

(N) = Numeric (A-N) = Alphameric or Numeric, but 
both fields must be alike 


a or b = Field or literal 
c = Field 



"xgure G 



Calculation Operations Summary 
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Leg«n4: ■ 



-E«trj| Rc«.ul(«cl|l4ax. Length 



E.»tr« Ofttooal Jot Entrj 



(A) « MpharMric 

(N) ' Nw««rlc 

(HM« A*rN 

(n-N)* Either. M bath mm 



* NOTE: The entries designated as required in Field Length, 
associated. Result Field is not defined, elsewhere. 



f^««1c«q TiidSeaTofj noV rclat«<( ia colunn 

Iheod'eMjs; «t le«»r one required; •*-• 

. High Lew EqikJl 

rcesultme, I Al least one rcciuired-^oa-a D-a-o oa-o 

Indicators J —Optional 

and Decimal Positions are necessary only if the 



Figure G2. Fields Pertinent tc Each Operation Code 
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CARD RPG OBJECT PROGRAM - GENERAL FLOW 




Figure G3. EPG Program Logic 
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APPENDIX H — EPG PROGRAM LISTING 



During generation of an object program, 
EPG prints a listing that contains: 

• The complete image of every specifica- 
tion card in the RPG source-program 
deck, one card to a line. 



card (s) to which the message refers. (A 
consecutive card number is assigned by RPG 
to each source card. In the program list- 
ing, it precedes the card seguence number 
assigned en the programmer's specification 
form.) » 



• A consecutive number, as counted by RPG 
during reading of the source deck — 
printed to the immediate left cf each 
source-card image. 

• A signal — the letter M S" — to the left 
cf the consecutive number, whenever the 
contents of columns 1-5 (page and line 
seguence number) of a specification 
card represent a repetition or step- 
down in EBCDIC seguence frcm the pre- 
ceding card. This does not interfere 
with continuation cf program genera- 
tion. ("S" is net printed the first 
calculation specifications line.) 

• Messages that reflect the status of 
cb ject-program generation, signal all 
kinds cf errors, and document cere- 
storage assiqnments. 

A specimen of an RPG program listing is 
included in the SRL publication IBM System/ 
360 Model 20, R eport Program Generator for 
Punch -Ca rd E gujp m ent , Opera ting Procedures , 
Form C26^3~800. 



Messages curing rpg generation of object 

PROGRAM 



RG 12 E C 



Program Identification: 
RG (for RPG) 

Serial Number: 
unique number for 
each message 

* Significance Code 



"Type of Specification | 

Card to which Principally 
Applicable 



* Significance Code 

A = ACTION 

Operator action is required before system is restarted. 

C = CAUTION 

An abnormal - though possibly deliberate - condition exists. 
Corrective action is required only if the condition is unintentional. 

D = DECISION 

The user must decide on one of several ways to continue processing. 
E = ERROR 

Correction in source program required. 

I = INFORMATION 

Informatory message only. Operator action usually not required. 

W = WAITING 

System can proceed no further until errors have been corrected. 

"Type of Specifications to which Principally Applicable 

F = File Description 
E = File Extension 
I = Input 
"©" ~ ' wU^HitHormal 
C = Calculation 



Messa ge Identification 

Each message is preceded by a unigue 
Message-Identification Cede. Frcm left to 
right, the cede represents: 



Figure HI. 



Me ssage s 



Format of Message- 
Identification Code 



Program Identification = RG 
Message Serial Number — three digits 
Significance Code — one letter 
Type cf specification card to which the 
message primarily applies--one letter 
(not pertinent to all messages) . 

Figure HI portrays the message- 
identif icaticn format, and lists the 
related cedes with their meanings. 

Card Number 

The words CARD NUMBER are printed at the 
end cf mest messages, followed by the con- 
secutive number (s) of the specif icaticn 



The informational and diagnostic messages 
are listed below, in message-serial-number 
order. Each message is preceded by its 
Identification code. 

The phrases shown in upper-case 
characters represent the actual RPG 
message. 

Sentences in lower-case letters give 
supplementary information that is not 
printed in the program listing. 



RG001 



360/20 RPG LISTING. 

RPG prints this heading if 
the RPG source deck starts 
with the EPG Control Card. 
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EGUU2 



STORAGE POSITICSS. 

This message is followed by 
the core storage capacity 
specified in the RPG Con- 
trol Card (Card H) for the 
systems used to generate or 
execute the program. If 
different capacities are 
specified, the smaller is 
used . 



INVALIE DEVICE. 

RG018 E E FILE NAME OR DEVICE IS 
MULTIPLY DEFINED. 

The same file name (cols. 
7-14) is assigned to more 
than one device code (cols. 
40-46) , or the same device 
code is associated with 
more than one file name. 



RG003 



RG00 4 



RG005 



RG006 



ERROR IN STORAGE MAGNITUDE. 

This message is associated 
with halt E12. It indi- 
cates invalid entries in 
cols. 7-9 or 12-14 of the 
RPG Control Card (Card H) . 



NO CONTROL CARD. 

This message is associated 
with halt D11. It indi- 
cates that the source deck 
is not preceded by an RPG 
Control Card (Card H.) 

COL. 6 INCORRECT, CARD IS 
BYPASSED. 

This message fellows the 
image of the RPG source 
card to which it refers. 

PROGRAM TOC EIG. 

This message is associated 
with halt D13 



RG031 



RG032 



RG033 



E E 



E E 



E E 



THE TABLE NAME IS INCORRECTLY 
SPECIFIED OR IS MISSING. 

The table name in columns 
27-32 and/or columns 46-51 



a) 
b) 



c) 



is missing, or 
includes special charac- 
ters or embedded blanks, 
or 
does not beqin with TAB 



THE TABLE NAME HAS NOT BEEN 

REFERENCEE. 

The table name defined in 
the file extension specifi- 
cations is not referenced 
in the calculation 
specifications. 

INCORRECT SPECIFICATION OF 
NUMBER OR LENGTH OF TABLE 
ENTRIES, OR THE PRODUCT OF 
BOTH IS LARGER THAN 80. 



RG010 C F THE FILE NAME IS NOT 
REFERENCED. 

RG011 E F FILE DESCRIPTION SPECIFICA- 
TIONS ARE MISSING. 

Eile description cards must 
precede all other specifi- 
cation cards in the RPG 
source deck. 

RG012 E F THE FILE NAME IS INCORRECTLY 
SPECIFIED OR IS MISSING. 

RG013 E F FILE TYPE ENTRY (COL. 15) IS 
NOT I, C, OR C, OR IS MISSING. 

BG014 1 E FILE TYPE (COL. 15) AND 
DEVICE (COLS. 40-46) ARE 
INCCMPATIELE. 



RG034 E E THE SAME TABLE IS DEFINED IN 

FILE EXTENSION AND CALCULATION 
SPECIFICATIONS WITH DIFFERENT 
FIELD LENGTHS AND/OR DECIMAL 
POSITIONS 



RG04 1 E I INPUT SPECIFICATIONS ARE 
MISSING. 

Input specification cards 
must precede output speci- 
fication cards. 

RG042 E I MATCHING FIELD SPECIFIED, BUT 
NO SEQUENCE IN .FILE 
DESCRIPTION. 

RG043 E I THE FILE NAME IS MISSING, NOT 
EEFTNEE, CR NOT 
LEFT-JUSTIFIED. 



RG015 E F SEQUENCE (COL. 18) DOES NOT 
CCNTAIN A, D, OR ELANK. 

RG016 E F SEQUENCE (CCI. 18) IS NOT THE 
SAME FOR ALL INPUT FILES. 
When there are multiple 
input cr combined files, 
all must have the same 
seguence specified. 



RG044 E I THE FILE NAME DOES NOT REFER 
TO AN INPUT CR COMBINED FILE. 

RG045 E I CARD-TYPE SEQUENCE (COLS. 
15-16) ELANK CR INVALID. 

Under one common file name, 
a card type with numeric 
seguence specification is 
followed by a card type 
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with alphabetic sequence 
specification, or the 
numeric sequence specifica- 
tion for card types is not 
in ascendinq order, or the RG058 E I 
field is blank. 

RG046 E I ENTRIES IN NUMBER AND/OR 
OPTICN (COLS. 17-18) ARE 
INCORRECT. 

Card-type sequence checkinq 

is specified in columns RG059 

15-16, but columns 17-18 

contain an incorrect entry; 

or, the entries in cols. RG060 

15-16 are alphabetic, but 

cols. 17-18 are not blank. 



E I 



E I 



Card is blank in cols. 17 
and 18. 



STERLING FIELD IS SPECIFIED 
WITH INCORRECT DECIMAL LENGTH. 
Either the field is defined 
as alphameric, or Decimal 
Positions is qreater than 
4. 

STERLING FIELD IS SPECIFIED TO 
BE IN PACKED FORMAT. 

INCORRECT INDICATORS. 

Resultinq and/or Field 
Indicators are invalid. 



RG047 E I ERROR IN RECORD IDENTIFICATION RG061 E I 
CODES (COLS. 21-26, 28-33, 
35-40) . 



RG048 E I RECORD IDENTIFICATICN AND 

FIELD DESCRIPTION APPEAR IN RG071 E 
THE SAME SPECIFICATION CARD. 
An input specification card 
contains entries in columns 
7-42 and columns 43-70. RG072 E 

RG049 E I A RECORD IDENTIFICATICN SHOULD 

PRECEDE THIS SPECIFICATION. RG073 E 

RG051 E I FIELD LOCATICN ENTRIES (CCLS. 
44-51) ARE INVALID, OR THE 

LENGTH OF A NUMERIC FIELD RG074 E 

EXCEEDS 15 POSITIONS. 



AN ALPHAMERIC FIELD IS SPECI- 
FIED TO BE IN PACKED FORMAT. 



THE FILE NAME IS MISSING, NOT 
DEFINED, OR NOT 
LEFT-JUSTIFIED. 

THE FILE NAME DOES NOT REFER 
TO AN CUTPUT OR COMBINED FILE. 

FILE IDENTIFICATION AND FIELD 
DESCRIPTION APPEAR IN THE SAME 
SPECIFICATION CARD. 



TYPE (COL. 
OR T. 



15) IS NOT H, D, 



E 



RG052 1 I THE FIELD WAS PREVIOUSLY RG075 

DEFINED WITH DIFFERENT LENGTH 
OR DECIMAL ECSITICNS. 

"R~G"6'5 3 £ I "THE! FIELD NA~M"E~ IS MIS SING , NO T — ~ ~ 

LEFT-JUSTIFIEE, BEGINS WITH 

TAB OR CCNTE, CONSISTS OF ALT- RG076 E 
SEQ, OR CONSISTS OF PAGE FOL- 
LOWED BY CNE CR TWO RG077 E 
CHARACTERS. 



FILE IDENTIFICATION AND FIELD 
DESCRIPTION SPECIFICATIONS ARE 
NOT IN CORRECT SEQUENCE RELA- 
TIONSHIP, OR ALL DETAIL OUTPUT 

, X^i3JCL-C 11 /Y CE .D..D. 3a /? PHP ,1,11 IX/TiCr JL T 

INCORRECT INDICATORS. 

INVALID FORMS CONTROL SPECIFI- 
CATIONS (COLS. 17-22). 



RG054 E I PLUS OR MINGS INDICATORS ARE 
SPECIFIED FCR ALPHAMERIC 
FIELD. 

RG055 E I THE MATCHING EIELD SPECIFICA- 
TION (CCLS. 61-62) IS 
INVALID. 

RG056 E I INDICATOR SPECIFIED IN FIELD- 
RECCRD RELATICN (COLS. 63-64) 
IS NOT A RESULTING INDICATOR 
OF AN ASSOCIATED CARD TYPE. 

RG057 E I STERLING FIELD SPECIFICATION 
IS INCORRECT. 

The entries are invalid; or 
the Sterlinq field (eels. 
71-74) contains specifica- 
tions, but the RPG Control 



RG078 E 



MULTIP 

LINES 

HAVE I 

CHECK 

The 

lin 

not 

Ide 

tio 

Ind 



LE FILE-IDE 
FOR ONE OUT 
NDICATORS S 
THIS AND PR 
re are AND 
es for the 

all the Fi 
ntif ication 
ns lines in 
icators. 



NTIFICATION 
PUT DO NOT 
PECIFIED. 
ECEDING CARD, 
and/or OR 
output, but 
le- 

Specifica- 
clude Output 



RG081 E 



THE FIELD NAME IS MISSING, IS 
NOT LEFT-JUSTIFIED, BEGINS 
WITH CONTD, CONSISTS OF ALT- 
SEQ, OR CONSISTS OF PAGE FOL- 
LOWED BY ONE OR TWO 
CHARACTERS. 



RG082 E THE FIELD IS UNDEFINED. 
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RG08 3 



RG08H 



EG 08 5 



RG086 



EG087 



EG 08 8 



F C 



E 



E C 



INCCEEECT APOSTROPHES IN CON- 
STANT CE EDIT WCEE. 

END POSITION (COLS. 40-43) IS 
MISSING OB INVALID, IS SMAlTEB 
THAN THE SIZE OF THE FIELD, 
CONSTANT, OE EDIT HCED, OE IS 
INCOMPATIBLE WITH TEE OUTPUT 
FILE OE DEVICE. 



BOTH ZEEO SUPPRESS AND A 
STANT CE EDIT WCED AEE 
SPECIFIED. 



CON- 



E C ZERO SUPPEESS OE AN EDIT WOBD 

cnrrTrTrn T</-r> irnimiBDTi n 

Kj£"ilV,Xl-LilL/ H/U ALT unijjjuj.^ 

FIELD. 

E STEELING FIELD IS INCORRECTLY 
SPECIFIED. 

The entries are invalid; or 
the Sterling field (cols. 
71-74) contains specifica- 
tions, but the BPG Control 
Card is tlank in cols. 19 
and 20. 

E STEELING FIELD IS SPECIFIED 

WITH INCORRECT DECIMAL LENGTH. 
Either the field is defined 
as alphameric, or Deciiral 
Positions is greater than 
4. 



RG105 
RG106 



RG107 



RG108 



E C 



E C 



E C 



This message is followed by 
the headings 

FACT.1 FACT. 2 RESULT F. 
and the consecutive number 
of the affected card is 
printed below the appropri- 
ate heading. 



DETAIL CALCULATION IS ENCOUN- 
TERED AFTEB TOTAL CALCULATION. 



E C OPEEATION CODE INVALID. 



E C RESULTING INDICATOR IS 

DI>r\TTT D T7F\ T3 TT Ti Hinm cnPrTPTTTT* 

J-\±J^/U-l-i.\l_J-/f J_l U J. Vt\J J. ■J-E.i_<\__LJ.-I-J_J-'« 

A CCMP, LOKUP, TESTZ, SETON 
or SETCF operation has been 



specified , 



a resulting 



indicator has not been spe- 
cified in columns 54-59. 

RESULTING INDICATORS ARE SPE- 
CIFIED, BUT NOT PERMITTED. 
A Move, Move Zone, EXIT, 
RLABL, GOTO, or TAG opera- 
tion has been specified 
with resulting indicators. 

RESULT FIELD CONTAINS A 

LITERAL. 

The specification in 
columns 43-48 is incorrect. 



RGC89 E STERLING FIELD IS SPECIFIED TO 
BE IN PACKEE ECEMAT. 

EG090 E C EDIT WORD HAS INCORRECT LENGTH 
OR WAS PREVIOUSLY USED WITH A 
FIELD OF DIFFERENT LENGTH. 



RG101 E C THIS FIELD IS UNDEFINED CE 
INCORRECTLY SPECIFIED. 

This message is followed by 
the headings 

FACT. 1 FACT. 2 RESULT F. 
and the consecutive number 
of the .affected card is 
printed below the appropri- 
ate heading. 

BG102 E C THE FOLLOWING FIELDS SHCULD BE 
BLANK FOE THE OPERATION. 

This message is followed by 
the headings 

FACT. 1 FACT. 2 RESULT F. 
and the consecutive number 
of the affected card is 
printed below the appropri- 
ate headino. 



RG109 F C AN IMFERMISSIELE OPERATION IS 
SPECIFIED BETWEEN ALPHAMERIC 
AND NUMERIC FIELDS. 

EG 110 EC FIELD LENGTH OF FACTOR 1 AND 
FACTOE 2 DIFFEES IN A LOKUP 
OPERATION. 

RG111 EC A LCKUP OPERATION IS SPECIFIED 
AND THE NAME IN FACTOR 2 OR 
RESULT FIELD DOES NOT BEGIN 
WITH TAB. 

RG112 C C GOTO AND TAG ARE NOT IN THE 
SAME CALCULATION TIME. 
GOTO is specified for 
detail time and TAG is spec- 
ified for total time, or 
vice versa. 

This is only a warning 
message. 

RG113 E C A TAG IS SPECIFIED WITH INDI- 
rifpnpq on circriTTTHC 

INDICATORS. 

RG114 E C THE SAME LABEL APPEARS IN MORE 
THAN ONE TAG STATEMENT. 



RG103 E C THE FOLLOWING ENTRIES ARE 

EEQUIEEE, EUT MISSING CE NOT 
T. ■PFT-.TU^TTT TT r. . 



EG115 E C THE EESULT FIELD WAS PEEVICUS- 
LY DEFINED WITH DIFFERENT 
LENGTH OR DECIMAL POSITIONS. 
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RG116 E C SPECIFIED LENGTH OF ALPHAMERIC 
RESULT FIELD EXCEEDS 256 POSI- 
TIONS, OR NUMEBIC RESULT HELD 
EXCEEDS 15 POSITIONS, OR NUM- 
BER OF DECIMAL POSITIONS SPEC- 
IFIED EXCEEDS FIELD LENGTH. 



RG117 C C RESULT FIELD MAY NOT EE LARGE 
ENOUGH. 

The nature of the operation 
can produce a result larger 
than size of result field. 
This is cnly a warning 
message. 

RG118 C C THE FIELDS IN THESE OPERATIONS 
DC NOT OBEY SIZE RESTRICTIONS. 

RG119 E C INCORRECT INDICATORS. 

Indicators and/or Resulting 
Indicators are invalid. 

RG120 E C THE DIVIDE OPERATION IS SPECI- 
FIED WITH HALE ADJUST AND FOL- 
LOWED BY A MOVE REMAINDER, OR 
THE MOVE REMAINDER IS NOT PRE- 
CEDED BY A DIVIDE WITH IHE 
SAME INDICATORS. 

RG12 1 E C RESULT FIELD NAME BEGINS WITH 
TAB, BUT THE OPERATION IS NOT 
LOKUP OR RLAEL. 

RG122 C C HIGH/LOW INEICATOE FOR LOKUP 
BUT NO TABLE SEQUENCE 
SPECIFIED. 

This is cnly a warning 
message. 

RG123 C C FUNCTION TAELE SHCETEE THAN 

-- AR64H!£tfT}-TA-£L£-7r- -•■ 

This is cnly a warning 
message 



RG131 E MULTI-FILE EECGEAM, EUT NC 
MATCHING FIELES SPECIFIED. 

RG132 E I THE OVERALL LENGTH OF CONTROL 
OR MATCHING FIELDS IS LARGEE 
THAN 144. 

RG133 E I THE OVERALL LENGTH CF MATCHING 
FIELDS AND/CR CONTROL FIEIDS 
FOR ONE LEVEL IS NOT CONSTANT 
FOR ALL PERTINENT CARD TYPES. 

RG134 E I A MATCHING FIELD IS MULTIPLY 
DEFINED WITHIN A RECORD-TYPE 
GROUP, BUT THE ENTRIES IN 
FIELD-RECORD RELATION ARE THE 
SAME. 



RG135 E I CONTROL AND/OR MATCHING FIELDS 
INCORRECTLY SPECIFIED 



RG136 E C THE FOLLOWING NAMES ARE USED 
AS FIELD NAMES AND IN TAG OR 
GOTO STATEMENTS. 

This message is followed by 

the name (s) . 

RG137 C UNREFERENCED FIELD NAMES. 

The message is followed by 
the names of all fields 
that are defined but not 
referenced . 

This is only a warning 
message. 

RG138 C I THE CONTROL FIELDS OF ONE 

LEVEL ARE SPECIFIED BOTH AS 
NUMERIC AND ALPHAMERIC. 

This is only a warning 
message. 

RG141 C SAME FIELD WITH DIFFERENT 
BLANK/ZERO INDICATORS, AND 
BLANK-AFTER IS SPECIFIED. 

This message is followed by 
the field name together 
with the blank/zero indica- 
tor that is turned on by 
Blank-After. 

This in only a warning 
message. 

RG142 E UNDEFINED INDICATORS. 

Indicators are used as con- 
ditioning indicators but 
are nowhere assigned as 
Resulting or Field Indica- 
tors. This message is fol- 

lo-w-ed— by--a- list— -of— aii — -■ 

undefined indicators. 

RG143 E C INCORRECTLY DEFINED INDICATOR 
LABELS. 

INxx in RLAEL does not 
identify a valid indicator. 
This message is followed by 
a list of all incorrectly 
specified indicator labels. 

RG144 C UNREFERENCED INDICATORS. 

The message is followed by 
a list of all indicators 
that are defined but net 
referenced. 

This is only a warning 
message. 



RG150 



END OF DIAGNOSTICS 
NO ERRORS 
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RG 1^ 1 



BG151 



END 0? DIAGNOSTICS 

REVIEW CAUTICNS 

This messace is associated 
with halt D01. It indi- 
cates that — while there 
were no kncwn errors in the 
source deck — abnormal con- 
ditions, as defined ty Cau- 
tion messages (Significance 
Code C) , exist . 

END OF DIAGNOSTICS 

ERRORS IN SOURCE DECK 

This message is associated 
with halt E14. It indi- 

X J. T J_ t„„„„ ^,-,-„,_ r . _, ^ 

^auta unac AiivjHii ci. .u v> j_ ;; , uo 

defined by Error messages 
(Significance Code E) , 
exist in the source deck. 



EG 16 5 



program. Their core 
storage addresses are 
listed in the column 
ArEBESS in hexadecimal 
notation. The remark 
NUMERIC, ALPHAMERIC, or 
EDIT WCRD appearing in the 
column TYPE signifies the 
type of the constant or 
literal. The column ACTUAL 
contains the image of the 
constant or literal as 
defined in the specifica- 
tion forms. (Numeric 
literals are represented in 

liovarlori mal nn-t-a-h-inn \ 

STARTING ADDRESSES OF RPG 
ROUTINES 



ADDRESS 



NAME 
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RG162 



EG 16 3 



RG164 



INDICATORS. 

This message is followed by 
a list of all indicators in 
which each indicator is 
preceded by its core 
storage address in hexade- 
cimal notation. 

DATA FIELDS 

ADDRESS|NAME|IENGTH IN EYTES | 

DEC. POS.IIYPE 

This message is followed by 
a list of all defined 
fields in the following 
order: 

Alphameric fields. Numeric 
fields. Tables. In the 
column ADDRESS, the core 
storage addresses of the 
data fields are listed in 
hexadecimal notation. The 
column TYPE indicates 
whether the field is alpha- 
meric or numeric. 

CCNTEOL FIELDS 

ADDRESS | CCNTECL LEVEL | 

LENGTH IN BYTES 

This messace is followed by 
a list of all assigned con- 
trol levels and matching 
fields. The column ADDRESS 
contains the addresses of 
the control fields in hexa- 
decimal notation. 

LITERALS ANE CONSTANTS 
ADDRESS | LENGTH IN BYTES | 
DEC. POS. | TYPE | ACTUAL 

This message is followed by 
a list of all constants and 
literals defined in the 



xxxx INPUT RECORDS 

INPUT FIELDS 

DETAIL CALCULATIONS 

TOTAL CALCULATIONS 

HEADING AND DETAIL LINES 

TOTAL LINES 

OVERFLOW LINES 

OUTPUT FIELDS 

USER 'S SUBROUTINES 

TRANSLATE SUBROUTINE 

TRANSLATE TAELE 

STERLING SUBROUTINES 

INPUT AREA FOR IBM 2560 HOPPER 
1 OR IBM 2520 

INPUT AREA FOR IBM 2560 HOPPER 
2 

PUNCH AREA FOR IBM 2560 OR IBM 
2520 

CARD PRINT AREA FOR IBM 2560 

FIRST INPUT AREA FOR IBM 2501 

SECOND INPUT AREA FOR IBM 2501 

PUNCH AREA FOR IBM 1442 

1442 PUNCH ROUTINE 

PRINT ROUTINE 

2560/2520 ROUTINES 

2501 INPUT ROUTINE 
XXXX LAST STORAGE POSITION USED 
(EXCLUDING I/O AREAS) 
Only those routines and/or 
data fields appear in the 
program listing that have a 
core storage address 
assigned by RPG. The 
addresses are represented 
in hexadecimal notation. 



RG166 



RG167 



GENERATION COMPLETED. 

This message is associated 
with halt DFF. 

TABLES. 

Contents of table cards 
exactly as loaded. 
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INDEX 



NOTE: References for each subject are listed in page-number sequence, 
important than others are underscored. 



Those deemed more 



& — see Ampersand 

$ — see Cellar sign 

/* card 39 

(see also Indicators, LE) 
0— see Zero, distinction from letter 
01-99 indicators — see Indicators, 

01-99 
12- over punch- -see 

Edit word; 

Preventing 12-overpunch; 

Sign removal; 

Zero suppress; 

Zoned; and 

Zones 
1P indicator — see Indicators, IP 



Absolute addition or subtraction: 

Eigure 68, Part III, 

lines 02 and 03 ... 232 

Absolute numeric compare — 

programming tip 283 

ADD (add) 127 

Address cards with variable-length 

fields and variable number of 

lines--see Indexing 

Alphabetic characters — definition 25 

Alphameric — see 

Alphameric fields; 

ll n)iamorir 1 i+oralc 

Code structure; 

Control level; 

Data formats; 

Decimal positions; 

Edit word; 

Matching fields; 

Packed; and 

Zero suppress 
Alphameric and numeric — same field 

defined twice: see Defining same 

field as both alphameric and 

numeric 
Alphameric characters 

Data format 269 

Definition 25 

Alphameric fields 

Clearing — programming tip 279 

Data format 269 

Definition 25 

(see also Decimal positions) 
Alphameric literals 

Calculation specifications 108 

Definition 25 

Output-format specifications...,. 198,204 



Altered collating sequence 267 

Alternating-tables format — see 

Pile extension specifications; 

~ „ J n-1-.-U-l.-, 1 ~ ^ 1^ _ ,1 -^ ^r^^-^-,J-^^T,^ 

Ampersand (&) in edit word 209, 21 

AND lines in calculation 

specifications — programming tip 281 

AND relationship 32 

Calculation specifications 105,281 

Input specifications 58,70,78 

Output-format specifications 

172,J75, 183, 190 

Argument tables 149,155,157 

(see also File extension specifi- 
cations; LOKUP; and Table look-up 
operations) 

Arithmetic operations 121 

(see also ADD, DIV, MULT, MVR, 
SUB, Z-ADD, Z-SUB) 

Arithmetic overflow 123 

Detecting — programming tip 283 

Asterisk protection 207 

b symbol 26 

BAL — see Basic Assembler Language 
Basic Assembler Language (BAL) 

7,28,77, 147, 172,303,312 

(see also Branching to an 

external routine; and EXIT and 

RLAEL) 
Bits (binary digits) 265 

(see also Figure D1, EBCDIC table) 

Blank — symbol for 26 

Blank-after 30, 31 

Calculation specifications... 115,116,139 

Input specifications _99,101 

Output-format specifications 1 9 4, 198 

Blank specifications cards 50 

Blank specifications lines 50 

Blank trailer card in primary file- 

-programming tip 307 

Blanking alphameric field — 

programming tip 279 

Body of edit word — see Edit word 

Branching 141 

(see also Branching within RPG; 

and Branching to an external 

routine) 
Branching between detail-time and 

total-time calculations, within 

RPG 143 

Programming tip 287 

(see also GOTO) 
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Branchinq to an external routine 146 

(see also Basic Assembler Lan- 
guage; and RPG operation codes 
EXIT and RLABL) 

Branching to output--see Repetitive 
output; and Branching between 
detail-time and total-time 
calculations 

Branchinq within RPG 142 

(see also GOTO and TAG) 

Byte 2 65 



Calculation operations — see Figures 
35, 36, G1 and G2; Operation 
specifications; and each specific 
operation code 

Calculation specifications 103 

Specifications summary... 119,319,325,326 
Summary of functions 13 

Card document printing 8,28, 196,201,240,253 

Card-image format 80 

Card printing — see Card document 
printing 

Card-type definition 67 

Card-type identification (Input 

specifications) 57, 67, 69 

Card-type resulting indicator — see 
Resulting indicators, Input 
specifications 

Card-type resulting indicator dur- 
ing total-time calculations — 
programming tip 280 

Card-type seguence check — see 
Nature of the card-type sequence 
check; and Seguence checking 
(card type) 

Carriage overf low--see Forms 
overflow 

Character 

Basic unit in System/360 Hodel 20.... 265 
D~ ~ef initio rf. 77777. . . . .7777777777777'.77i 2 5 
Entry in Input Specification 70 

Checking that output card-fields 
are blank before output-- 
programming tip - 273 

Clearing alphameric field — 

programming tip 279 

Code structure 265 

(see also Figure D1, EBCDIC table) 

Col. (abbreviation) 26 

Collating sequences 266 

Altered 267 

Standard 26 6 

Column-binary format 80 

Combined files 

Definition of term 24 

File description specifications 52 

Input specifications 56,77 

Output-format specifications 168,171 

Comments 

Calculation specifications 118 

File description specifications 54 

File extension specifications. 162 

(see also Comments cards) 

Comments cards 50 



COMP (compare) 

(see also Collating sequences) 
Compare absolute (numeric)-- 

programming tip 

Compare and zone-testing operations. 

(see also COMP and TESTZ) 

Compatibility 

Conditioning indicators 

Calculation specifications 

±04*105,129, 131, 137, 139, 142, 

(see a}so Output indicators in 

output-format specifications; and 

the specific indicators) 
Conditioning performance of 

calculations — see Conditioning 

indicators 

Consecutive numbering 

Constant and input-card data en 

same print line — programming tip.. 
Constant data 

Input specifications 

Output-format specifications 

Control break — definition 

(see also Control level) 
Control breaks: eliminating extra 

ones (major-minor control) — 

programming tip 

Control card 

Control fields — definition 

(see also Control level) 
Control fields 

(see also Control levels; and 

Indicators, L1-L9) 
Control fields, split — see Split 

control fields 
Control group — see Control break; 

and Control level 
Control level 

Calculation 

Definition 

Input.. . . •_••••;. 8 1r83,8 

Output-format 

(see also Indicators, L1-L9, LR, 

L0) 
Control-level indicators — see 

Indicators, L1-L9, LR, L0 
Contrcl-levels initiated by card 

type — programming tip 

Control levels on "run-in" 37, 

Control on a signed field: no 

break between unsigned and plus- 
signed cards — programming tip 

Converting units to dozens — 

programming tip 

Core-storaqe requirements — see 

Storage reguirements 

Crossfooting (Figure 38)..... 

C/Z/D entry (input specifications).. 



137 



283 
137 

13 
32 



149, 150 



84, 192 
.. 301 



198 ,208 
26 



297 
12 
26 



104 , 142 
26 

1± 9Jr_9 2 
1 757176 



. .. 273 
176,272 



275 
285 



129,232 
71 



Data formats 269 

Alphameric fields 269 

Numeric fields 269 

Packed-decimal 27 

Date on same print line as constant 

heading data — programming tip 30 1 
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Decimal alignment 88,90,12 1,131,138, 
(see alsc Decimal positicns) 

Decimal point — see Decimal align- 
ment; Decimal positions; and Edit 
word 

Decimal positions 

Calculation specifications 

File extension specifications.... 

Input specifications 

(see also Decimal alignment; and 
Edit word) 

Defining same field as bcth alpha- 
meric and numeric 79,82,8 

Definition of terms 

Delayed forms overflow — programming 
tip 

Detail printing 

Detail time 26, 

Detail-time calculations 

Detail-time output 26 , 

Device specification 

Diagnostic messages — see Messages 

Digit, cf record identification 
code , 

Distinguishing zone punches in 
input fields — programming tip..... 

DIV (divide) 

Document printing — see Card docu- 
ment printing 

Dollar sign 

Double punching: checking that 
output card-fields are blank 
before output — programming tip... 

Dual-feed carriage 



15C,161 Expansion of edit word — see Edit 
word 
Extended binary-coded-decimai 
interchange code — see EBCDIC 



3,89,90 
24 



EBCDIC. . 
EBCDIC 

Edit wor 
Body. . 
Expans 
Eules 
Status 
(see 
Packed 

Editing 
Printi 
by dec 
Retain 
stants 

Eliminat 
(major 
progra 

End-of-f 

End posi 

Error ch 
Calcul 
.File d 
File e 
Input 
Output 

Equal in 
Equal 

EXIT (b 
routin 

EXIT ope 



table (Figure D1) 

d 195, 

205, 

ion 206, 

for forming, 

portion 205,206, 

also Decimal positions; 
; and Zero suppress) 

pointers 

ng two-digit field preceded 

imal point 

ing leading zeros and con- 

, yet removing zones 

ing excess control breaks 
-minor ccntrcl) — 

mming tip 

ile specification 

tion in output reccrd 

eck list. <. 

ation specifications 

escription specifications 

xtension specifications 

specifications. 

-format specifications 

dicator--see Zero-cr-Blank/ 

indicators 

ranch to external BAL 

e) 77, J46, 172,303, 

ration, restrictions 



111 Factor 1 and Factor 2 108 

161,162 (see also EXIT; and LOKUP) 
. 79,80 Factor size and results, 
relationship 

(calculations) — see Relationship 
between size of factors and 
results (calculations) , 
Field description 

Input specifications 57, 78 

... 292 Output-format specifications,.... 167, 189 

174,190 Field indicators 31,97 

103,167 Field length 110 

26,104 (see also Field location (input 
1 6 7 , _1 7 specifications) ; and Maximum 
. . . . 53 length of fields) 

Field location entry 80 

Field name 

.... 71 Calculation specifications 108,110 

Input specifications., 82 

... 282 Output-format specifications 192 

112,128 Field-Record Relation 91 

(see also OR relationship) 

Field selection (output) 190 

... 208 Fields used in EAL subroutines, 
defining — see RLABL 

File description specifications 51 

. .. 273 Specifications summary 314 

172, 187 Summary of functions 12 

File designation 52 

File extension specifications 160 

265 Specifications summary 321 

266 Summary of functions., 13 

203 (see also LOKUP; Table-input 

206 cards; and Table look-up 

209 operations) 

206 File identification 

209 Input specifications 57 

Output-format specifications. 167, 168, 170 
File name 

300 File description specifications 52 

Input specifications 57 

300 Output-format specifications 169, 170 

File priority — see 
300 Matching of card files; and 
Sequence of entries, input 
specifications 

297 File type , 52 

53 (see also Combined files — 
195 definition of; Input files — 

261 definition of; and Output files — 

262 definition of) 

261 Files — definition of 24 

262 First-page indicator — see Indica- 

261 tors, 1P 

262 Fixed dollar sign 208 

Floating dollar sign 208 

Form Type specification 50 

Format of data — see Data formats 

312 Forms overflow 29,36,173,174, 180, 181 
147 182,183,187 

(see also Indicators, OF/OV; 

Overflow-output time) 



25, 
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Forms overflow before totals- 
programming tip 294 

Forms overflow delayed to end of 

ccntrcl group—programming tip 292 

Forms skipping 172,173 

(see also Forms overflew; Indica- 
tors, CF/CV; and Overflow-output 
time) 

Fro m entry (input specifications) 80 

Function table containing several 

functions per field 157,^65 

Programming tip 284 

Function tables 149,155,157 

(see also File extension specifi- 
cations; I0KUP; and Table look-up 
operations) 



General indicators — see Indicators, 
01-99 

General information on programming 

with EPG 24 

General registers 312 

Generating the object program 9 

GOTO (branch to — within EPG) 30,_3J,_142 

(see also Branching between 
detail-time and total-time calcu- 
lations, within EPG) 

Group-indication 176, 185, 190,221 

(see also Group-indication on 
"run-in"; indicators, L1-L9; and 
Output indicators) 

Group-indication on "run-in".. 37,176 

Programming tip 272 

Group-printing 17 6, 177,200,221,2 53 

(see also Indicators, I1-L9; and 
Output indicators) 



H1/H2 indicators — see Indicators, 

H1/H2 
Half— adjust. . ;-.;.-.■ v ;-.-. . . . . .v. . . . t i t't7't2'9", T3 2 

Half -byte T. 26 5 

(see also Figure D1, EBCDIC 

table) 
Halt indicators — see Indicators, 

H1/H2 

F/D/T entry 170 

Headinq cards 84 

Heading lines--see Constant 

Heading time — see Detail time 

Hexadecimal notation... 265 

(see also Figure D1, EBCDIC 

table) 
Hierarchy of indicators — see Indi- 
cator hierarchy 
High indicator — see Plus/High 



Indexing: analyzing and forming 
fields position-by-position— 
programming tip 277 

Indicator hierarchy 39,40 

Indicator settings—program logic 

flow 26 

Indicator summary 313 



Indicators 

01-99 

1P 30 

H,1/H2 34 

L0 38,69,97, 

L1-L9 3 6,37,44,47 

LE 30,37,38 

ME 35,39,43,52,78,90, 

172,175, 

OF/OV 29,36,144,_173,174, 

185,187, 

Control level — see Indicators, 
L1-L9, IE, L0; and Control level 
Field — see Field indicators 
First page — see Indicators, 1P 
General— see Indicators, 01-99 
Halt— see Indicators, H1/H2, 
Indicators (calculation 

specif ications) --see Condition- 
ing indicators 
Last card — see Indicators, IE 
Last record — see Indicators, LE 
Matching record — see Indicators, 
ME 

Output — see Output indicators 
Overflow — see Indicators, OF/OV; 
Output indicators — 0F,0V; and 
Overflow indicators (OF/OV) 

Eelated to program logic flow 

Summary 

Total — see Indicators, L1-L9, LE, 

L0 

Universal total— see Indicators, 

L0 

Indicators, as affected by Blank- 
after — see Blank-after 

Indicators, conditioning—see Con- 
ditioning indicators (calculation 
specifications) ; and Output indi- 
cators (output-format 
specifications) 

lTrd "icatxrrs ' field t^aicroia^ion 

specifications) 

Indicators L1-L9 on "run-in" 

Indicators, use of, in external 

subroutines 

(see also ELABL) 

Indicators, Zero-cr-Blank — see 
Zerc-or-Blank/Egual indicators 

Input files — I/O devices 

Input files 

Definition of term 

File description specifications... 

Input specifications 

Output-format specifications 

Input specifications 

Specifications summary 

Summary of functions 

Input units, specifying 

Integer 

(see also Decimal positions) 

Interpreting — see Card document 
printing 



.... 31 
32 

,35, 176 
,98, 101 
_10 4, 176 
,87,1Q4 
,87, 104 
105, 171 
176,263 
180,181 
188, 189 



26 
313 



... 105 
37,272 

147, 148 



10 



... 24 
... 52 

56,77 
.. 171 
... 56 
.. 315 
... 12 

53,57 
31,111 
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Introduction i i = s = s = = s = = = :s = ss;s = s = ss = s = s = = 7 

Introductory program example 14 

Inversion of zone and digit. 81 

Invoicing, program example 243 

I/O device assignment 53 

IOCS (Input/Output Control System) 7 



LO indicator — see Indicators, LO 

L1-L9 indicators — see Indicators, 
I 1-L9 

L1-L9 en "run-in" 37,176,272 

last-card indicator—see Indica- 
tors, LE 

Last-record indicator — see Indica- 
tors, IE 

Leading zeros in specifications 

fields 50 

Length of table entry 161 

Second (alternating) table 162 

Line number 50 

Listing—see Detail-printing 

Literals 

Calculation specifications 108 

Definition „ . . . . 25 

Loading tables — see Tables, loading 
of 

LOKUP (table look-up) 116,150 

(see also File extension specifi- 
cations; Table-input cards; and 
Table leck-up operations) 

Low indicator — see Minus/lew 

LE indicator — see Indicators, LE 



Ml, M2, M3 — see Matching Fields; 
and Matching of card files 

Machine units and features 

supported 

Processing of object program 260 

Program generation 260 

Machine units reguired 

Processing of object program 260 

Program generation 260 

Major-minor control — programming 

tip. .. , , 29 7 

Matching Fields.. 42,81,83,89,91 

(see also Collating seguences; 
Indicators, ME; and Matching of 
card files) 

Matching of card files 42,45,46, 57, 8'9 

(see also Collating seguences; 
and Matching fields) 

Matching-Eecord indicator — see 
Indicators, ME; also, Matching 
Fields 

Maximum length of 

Alphameric field 79, \\\, 132,138, 157 

Card-document print-field" 196 

Constant 198 

Edit word 204,206 

Numeric field 79, 88, 89,90, VH, 123 

_L26, 132, 138, 157 

Messages (diagnostic) 328 

MHHZO (move High-order zone to 

Li.l-\^'.\ \J 2. \J C A. UUiiC f V O J- l~ .!. U 11 j . > . ......... I~/U 

MHTZC (move High-order zone to Lcw- 

crder ZOne position) 136 



Minimizing core— storage 

reguirements 27 1 

Minus/Low 

Calculation resulting indicators 

115,116,137, 139, 151 

Field indicators 97 

(see also Zones) 

Minus zero — see Move operations 

MLHZO (move Low-order zone to High- 
order ZOne position) 136 

MLLZO (move Low-order zone to Low- 
order ZOne position) 136 

MOVE (move right-aligned) 132 

Move operations 131 

(see also MOVE and MOVFL; Move- 
zone operations; and Figures 
39-42) 

Move-zone operations 136 

(see also MHHZO, MHLZC, MLHZO, 
MLLZO; and Move operations) 

MOVEL (move left-aligned) 133 

ME indicator — see Indicators, ME; 
(see also Matching fields, and 
Matching of card files) 

MULT (multiply) 128 

Multiple functions in one function 

table 157,165 

Programming tip 284 

Multiple output from single source- 
-see Eepetitive output 

Multiple-time output to cards dur- 
ing one program cycle 2 8 ,16 9 

MVE (Hove Eemainder) 112,128 

Nature of the card-type seguence 

check 63 

(see also Seguence checking (card 

types) ) 
Non-significant zeros — see leading 

zeros 
Not'N^ specification 

Calculation 105 

Input 7 

Output-format 175 

Number of table entries per record 161 

Number of table entries per table 161 

Number (N) specification 57,58 

Numeric — see 

Code structure; 

Control level; 

Data formats; 

Decimal positions; 

Edit word; 

Matching fields; 

Numeric fields; 

Numeric literals; 

Packed ; and 

Zero suppress 
Numeric and alphameric — same field 

defined twice: see Defining same 

field as both alphameric and 

numeric 
Numeric characters 

Data format 269 

j_/c:j_-l.iiJ.L.j.\j'ii»»«« ••• « • • • • * • * s • a a • • * * • • • *• i* -' 
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Numeric fields 

Data format 269 

Definition 2 5 

Numeric literals 

Calculation specifications. 108 

Definition 25 

Object proqram 9 

Object program register usage 312 

OF — see Indicators, OF/OV 

Operatinq procedures--see the 

publication I BM S y stem/360 Model 

2 f Rep ort P roqram Gener ator for 

Pun ched-Ca r d Equip ment f Operating 
Procedures (Form C26-380Cf 

Operation codes (calculations) 127 

(see also Figures 35, 36, G1 and 
G2) 

Operation specifications 

(calculations) 1 10,JM9 

(see also Arithmetic operations; 
Branchinq; Compare and Zone- 
Testing operations; Move opera- 
tions; Setting Indicators; Table 
look-up operations; and each spe- 
cific operation cede) 

Option (C) specification , 57,59 

OR lines in calculation 

specifications — programming tip 281 

OR relationship. 32 

Calculation specifications 105,281 

Input specifications 58, 70,76,78 

Output-format specifications 

172, XVz, 183,190 

Organization of this publication 10 

Output before first card is read 30, 10,1, 176 

Output card-fields: checking for 
blank before output — programming 
tip 273 

Output files 

DeTrfflficli' """Of term. .". . .... ."...". .". . . . .."""24" 

File description specifications 52 

Input specifications 77 

Output-format specifications 167,171 

Output files — I/O devices 10 

Output-format specifications 167 

Specifications summary 322 

Summary of functions 13 

Output indicators 

Field-description lines J89,193 

File-identification lines J74, 180,_182, 187 

Output specifications — see Output- 
format specifications 

Output units, specifying 53, 169 

CV — see Dual-feed carriace; and 
Indicators, OF/OV 

Overflow — see Arithmetic overflow; 
Forms overflow; Indicators, 
OF/OV; Overflow-output time; Skip 
after; and Skip before 

Cverflcw forms advance before 

totals — programming tip 294 

Overflow indicators (OF/CV) 180 

(see also Indicators, CP/OV; and 
Output-indicators — OF, CV) 



Overflow (of forms) delayed to end 

of control group — programming tip.... 292 

Overflow-output time.. 26,29,36, 168, 181, 183 
(see also Forms overflow; Indica- 
tors, OF/OV; Output indicators; 
and Overflow indicators — CF,OV) 

Overflew printing--see Output indi- 
cators, OF/OV; and Overflow 
indicators — OF,OV 

Overflow time — see overflow-output 
time 

Overpunches — see Edit word; Pre- 
venting 12-overpunch; Sign 
removal; Zero suppress; Zoned; 
and Zones 

Overpunching: checking that output 
card-fields are blank before 
output — programming tip 273 



Packed data 

Calculation specifications... 122,132,159 

Data format: packed-decimal 270 

File extension specifications.... 161,162 

Input specifications 79,80,86,89,90 

Output-format specifications 197,202 

Packed-decimal data format 270 

(see also Packed data) 

PAGE 

Input specifications 82, 84, 86 

Output-format specifications 193 , 199 

(see also Consecutive numbering) 

Page number (of specifications 

forms) 50 

Page numbering — see Consecutive 
numbering 

Page overflow — see Forms overflow 

Page totals — programming tip 290 

PCU — see Punched-Card Utility 
Programs 

Plus/High 

Cal" c"U"l" at i on result "in g""in die at or s 

115, 116,JJ7,137,139,151 

Field indicators 97 

(see also Zones) 

Plus zero — see 

Arithmetic operations; Field 
indicators; Move operations; and 
TESTZ 

Pointers — see Proqramminq tips 

Posit ion entry (input 

specifications) 70 

Prebilling with inventory control, 

program example 222 

Preventing 12-overpunch — 

programming tip 299 

(see also Edit word; Siqn 
removal; Zero suppress; Zoned; 
and Zones) 

Primary file 42,52,57,8J 

Primary trailer cards — prcaramming 

tip 307 

Printer spacinq chart 9 

Program compatibility 1 3 
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Program examples 

Introductory proqram example 14 

Tnvoicinq 243 

Prebilling, with inventory control... 222 

Sales commission report 216 

(see also Appendix E, Programming 
tips; and illustrative examples 
throughout text) 

Program listing 328 

Program logic flow 26,27,327 

Programming tips 271 

Calculation-oriented pointers 279 

Input-criented pointers 272 

L"J -L. 11 J- ill -L Zj -I- II ^ O V^J- *3 O LVLQy C i.C^UJ.J.CUJCllLbt • ■ Z./1 

Output-oriented pointers 287 

Punched-Card Utility Programs .... 7,28,172 
Punching only last card cf ccntrcl 

group 28 

Quotient — size of 126 



Record identification — see 

Card-type identification; and 
Record identification codes 

Record identification codes 69 

Record type — see Card type 

Records in an AND relationship — see 
AND relationship 

Records in an OR relationship — see 
OR relationship 

Registers 312 

Registers, use of, in external 

subroutine 147 

(see also EXIT) 

Relationship between size cf fac- 
tors and results (calculations) 123 

Addition and subtraction... 123 

Division 125 

Multiplication 124 

Size of quotient * 126 

Size cf remainder 127,129 

Relationship of total time to card 

movement 28 

Remainder 

Sign of 129 

Size of 127,129 

Value cf , 129 

Repetitive output — programming tip 287 

(see also Branching between 
detail-time and total-time calcu- 
lations, within RPG; and GOTO) 

Result field specifications ».... 110 

(see also LOKUP; and RI.ABL) 

Result-testing fields--see Result- 
ing indicators, calculation 
specifications 

Resulting indicator (card type) 
during total-time calculations — 
programming tip 280 

Resultinq indicators 31 

Calculation specifications 

104,VT5,118, 123,152,137,139, 14 9, J5J 
Input specifications (card type).. 69,280 

RLABL (reference label) ~ 147,16^,279 



RPG.... --if not listed: see spe- 
cific subject, omittinq the pre- 
fix "RPG" 

RPG operations — schematic 10 

RPG proqram loqic 26,27,327 

Rules for.... — see relevant subject 
Run-in v . . . . see indicators L1-L9 on 
"run-in"; 

Output before first card is read; 
and 
Total-time processing on "run-in" 



sales connTiissicn report, proqram 

example 216 

Second secondary file--see Tertiary 

file 
Secondary file.. 42,52,57,89 

(see also Tertiary file) 
Selectinq input-file cards based on 

matchinq of files and/or calcula- 
tion results — proqramminq tip 306 

Selecting last card of each control 

group _ 28, 172 

Proqramming tip 303 

Sequence — see 

Collatinq sequences (Appendix D) ; 

COMP (compare) 

File description specifications 

(col. 18) 

File extension specifications 

(cols. 45 and 57) 

Input specifications 

(eels. 15-18) 

LOKUP (table look-up) 

Matching fields; 

Matching cf card files; 

Nature of the card-type sequence 

check; 

Sequence checkinq (card types) ; 

and 

Sequence checkinq (data fields) 
Sequence 

for Matchinq of files — see Match- 
ing of card files, and Matching 

fields; 

for Comparing — see CCMP; 

for. table data — see LCKUP, and 

Seguence of tables 

Sequence checkinq (card types) 57,63 

Sequence checkinq (data fields) 42, 48 , 89, 233 
Sequence of entries 

Calculation specifications 103 

File description specifications 52 

File extension specifications 160 

Input specifications 57,79 

Output-format specifica- 
tions ,. .'. 168, 17 C, 192, 196 

Sequence of tables 149,160,162 

Sequence specifications 

File description 53 

File extension 162 

Input 56, 58 

SETOF (set indicators off) 140 

SETON (set indicators on) 140 

Settinq indicators (by calculation 

specification) 140 

(see also SETON and SETOF) 
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Sign removal 137,283,301 

(see also Edit word; Preventing 
12-overpunch; and Zero suppress) 
Signs — see Arithmetic operations; 
Edit word; Preventing 12- 
overpunch; Sign removal; Zero 
suppress, Zoned; and Zones 

Sign reversal — programming tip 283 

Signed fields 206 

Single-card total elimination — - 

programming tip 295 

Skip 172 

Skip After 173 

(see also Fcrmms overflew; Indi- 
cators, OF/CV; and Cverflow- 
output time) 

Skip Before , 173 

Slash-asterisk card 39 

Source deck.... 9 

Source program 9 

Space 172 

Space After 172 

Space Before 172 

Space suppress 173 

Special characters--def inition 25 

Specification cards 9 

Specifications common to all forms.. 50,314 

Specifications summary 314 

Calculation. 319,32 5,326 

File description 314 

File extension 321 

Input , 315 

Out put -for mat . 322 

Specifications types — summary 12 

Split ccntrcl fields.... 88 

Square root—programming tip 286 

Stacker selection 28,43 

Input specifications 77 

Output-format specifications 170 

Programming tips -. . . 303,306 

St a^i lard .collating.. -sequence.. ... ........... .. ...... 26.6 

Status portion of edit word — see 
Edit word 

Sterling sign position 57,167 

Storage requirements 

Processing of object program 255 

Basic routines . 255 

Fields, literal, and indicators.... 256 

Input/output routines 256 

Processing routines 256 

Program generation 255 

Storage requirements — minimizing 271 

SUB (subtract) 127 

Subroutines — see 

Easic Assembler Language; EXIT; 
and GOTC 

Summary of indicators 313 

Summary of RPG specifications — see 
Specifications summary 

Summary punching 178,201,253 

Summary punching matching-group 
totals into primary trailer 

cards--progran ming tip 307 

Symbols used in this manual 26 



Table-input cards... 
Format 

Rules for creation 
Table look-up — creat 

cards — see Table-i 
Table look-up operat 

Application exampl 

Points to note.... 

(see also File ext 

cations; LOKUP; a 

cards) 
Table look-up, steps 

lock-up 

With argument tabl 

With argument and 

Table name 

Second (alternating) 

(see also LOKUP; a 
Tables, loading of. . 
TAG (destination of 

within RPG) 

Terminology used in 
Terms — definition of 

Tertiary file 

Testing res 

calculations — see 

Resulting indicato 

specifications 
TESTZ (test zone) . . . 
Time requirements 

Processing of obje 

Program generation 

Time sharing. 

Timing for the RPG p 
To entry (input spec 
Total-level indicato 

tors, L0, L1-L9, L 
Total- printing — see 

Total time.... 

Total-time calculati 
Total-time calculi at 

type of last pr 

programming tip. . . 
Total-time calculati 
Total-time output. . . 
Total-time output on 
Total-time processin 

"run-in" . 

(see also GOTO) 
Trailer cards in 

programming tip. . . 
Translation table ( 

ing sequence) 

Twelve overpunch — se 

Edit wcrd; 

Preventing 12-over 

Sign removal; 

Zero suppress; 

Zoned; and 

Zones 
Type (H/D/T) , output 



ing table-input 
nput cards 

ions 

e , 



ensicn specifi- 
nd Table-input 

to implement 

e only 154 

function tables.... 
... 1118,150, 155 , 161 

table 

nd RLABL) 

150 

a branch. 



this manual, 



ults 

rs, calculation 



42,53,J 
of 



ct program 



rogram 

if ications) 

rs — see Indica- 

R 
group-printing 

216,103, 167 

ens. 26 

ions. ...b..a.s.e.d on 

ecedinq card — 



157 

157 
158 



149 
243 
157 
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Units to dozens: conversion — 

programming tip 285 

Universal-total indicator — see 
Indicators, 10 

Updating tables 150 

User-specified collating sequence. . . . » . 266 
Using EPG 8 



Variable-length fields in one card 
type — see Indexing 



Whole number — see Integer 



Z-ADD (zero and add) 127 

Z-SUE (zero and subtract) 127 

Zero — distinction from letter 0......... 26 

Zero 

Minus zero— see Move operations; 
and TESTZ 

Plus zero — see Arithmetic opera- 
tions; Field indicators; Move 
operations; and TESTZ 



Zero elimination — see 

Edit word; and 

Zero suppress 
Zero-or-Blank/Egual indicators 32 

Calculation resulting indicators 

±1.5, 116, JM7, 137, 139, 151 

Field indicators 98,101 

Output-format specifications 176,195 

(see also Zones) 
Zero suppress 193 

(see also Constant; Decimal posi- 
tions; Edit word; and Packed) 
Zone elimination — see Edit word; 

Programming tips; Sign removal; 

and Zero suppress 

Zone, of record identification code 71 

Zone punches in input fields: how 

to distinguish — programming tip 282 

Zone-testing operations — see TESTZ 

Zoned — when are fields zoned 206 

Zoned and unzoned positive field: 

control without control break-- 

programming tip 275 

Zones 43, 7 1,7 9, £.1,88, 98 ,121 ,133,159,193 

194,203,204,206,266 
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